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Su contacto con el futuro, 


Porque le ofrecemos hoy nuestra amplia 
experiencia en Asesoría y Servicios Informáticos, 
pensando en el mañana. 

Somos una empresa con una completa gama 
de productos. Con una capacidad profesional 
adecuada para cada necesidad de nuestros 
clientes. 

Aportamos al mercado nacional la más 
moderna tecnología y un constante esfuerzo 
innovador. 

Así, le ofrecemos soluciones útiles, servicios 
eficaces y la máxima rentabilidad. Con visión 
de futuro. 


Madrid: Rosario Pino, 14-16, 5. 28020 Madrid. Tels.: 279 61 00/4507. Télex: 46739 
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LE INEREMATIA 


OFERTA ESPECIAL VERANO-86 
AMSTRAD 


o A A 129.900 + IVA 
A 169.900 + IVA 
«= PUBIS E, VERDE 090 dc an 84.900 + IVA 
== DPOG-6148 COLOR sscnaovarsrcriniaita reses ASALTA Ra 119.900 + IVA 


Con cada ordenador se incluye: 

— Cursillo de 8 a 10 horas de duración sobre CPM Plus y dudas de interés 
para los usuarios. 

— Inscripción gratuita en el Club de Usuarios AMSTRAD. 

— 3 Programas a elegir dentro de la gama de programas del Club de Usua- 
rios AMSTRAD. 

— discos vírgenes (para los CPC) y 1 disco y una caja de papel (para los 


PCW). 


NOTA: Si no desea el obsequio, a los precios arriba indicados, no hay que 
aplicarles el IVA. 


IMPRESORAS 


13% de descuento. 


COMPATIBLES PC/XT 

=> KENSTONE RON versaricarcipoalairipei trader donas 249.900 + IVA 

— KEYSTONE da A A OA * 448.900 + IVA 
. == REXSSTONE PO XTCON 2OMB: sonssrisacakcr rrpatar orienta beds 491.900 + IVA 

== BONDWELLDWSS ¿caccrryesetadcrróna sar ienpyssa re cssbonsir eee 199.900 + IVA 


raros per inn 339.900 + IVA 


10 % DE DESCUENTO 
INFORMATE CON NOSOTROS 


Hermosilla, 75, 1. Ofc. 14. Tel.: (91) 276 43 94/435 04 70. 28001 MADRID 


dll NAL, 
Estimados lectores: 


Desde aquí queremos enviaros un caluroso saludo y 
desearos, todavía, unas felices vacaciones, ya que la 
mayoría de vosotros continuaréis disfrutándolas. 


Nosotros, pensando en las horas libres de las que 
disponéis, queremos ofreceros más juegos, para mayores 
y pequeños, y que entre todos paséis algún tiempo con 
vuestro maravilloso equipo. 


Queremos también agradeceros el interés que habéis 
tenido, pues a pesar de estar de vacaciones no ha 
disminuido nuestro correo, tanto para el 
«Programa-Concurso», como para consultas y sugerencias. 


Recordaros también que continúa abierta. la sección, 
totalmente gratuita, para aquellos que quieran remitimos 
anuncios. interesantes para la compra, venta, intercambio, 
dar o recibir clases, cursos, etc., de «todo. aquello 
relacionado con la informática, que ya os hemos 
anunciado en nuestros números anteriores. 


Esperando vuestras cartas, y deseando que tengáis un 
feliz regreso, recibid un saludo. 


ISS 


Siguiendo el ejemplo inglés, tras la buena 
acogida obtenida en el pasado mes de 
mayo, en la primera Feria Informática 
AMSTRAD, 

Indescomp ha decidido organizar una 
Il Feria para el mes de (DICIEMBRE) 


Esta feria estará dedicada a los usuarios y 
proveedores de Amstrad y Sinclair. Se 
espera que en esta feria acudan expositores 
de las primeras firmas inglesas en este 
campo. 


LONDRES Y SU V FERIA 


En el pasado mes de junio se celebró en Debido al gran impacto y difusión de esta 

Londres la IV Feria AMSTRAD. feria, la editorial Database ha convocado 
otra feria para este mes de septiembre. 

Como ya va siendo habitual, la feria se 

celebró en un entorno muy profesional y con Esperamos acudir a ella y poderos contar 

una gran audiencia de público que todo lo que allí veamos. 

abarrotaba los stands en busca de 

novedades para sus equipos. 
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FLACO 


PARA EL PROGRAMA PLACON 


Al reciente anuncio de actualización gratuita 
del manual a los usuarios registrados del 
programa PLACON sobre microordenadores 
AMSTRAD, hay que añadir otra buena 
noticia para los usuarios del programa de 
contabilidad editado por MICRO OUSE: la 
opción LIVA. Este programa opcional permite 
obtener el libro registro de facturas emitidas 
y recibidas, exigido tras la implantación del 
Impuesto sobre el Valor Añadido, y traspasa 
los datos contables al programa PLACON. 


Sin embargo, y a pesar del gran número 
creciente de usuarios del programa 
PLACON, MICROMOUSE no se ha 
dormido en los laureles obtenidos y continúa 
trabajando sobre su versión AMSTRAD. Los 
poseedores de un AMSTRAD 6128 con una 
sola unidad de disco podrán utilizar el 
programa PLACON para llevar su 
contabilidad y en breve se encontrará 
disponible la versión del programa PLACON 
para gestorías. 


R G INFORMATICA 


Ha convocado sus cursillos sobre «Código 
Máquina» para Ordenadores AMSTRAD y 
MSX. 


Sus clases comenzarán en la segunda 
quincena de septiembre. Al final de cada 
cursillo se concederá a los participantes un 
diploma de asistencia al mismo. 


Por otro lado, R G Informática continúa 
con sus ofertas en la compra de 
ordenadores Amstrad y Periféricos. 


WORDSTAR PARA AMSTRAD 6128 Y 
PCW 8256 


Micro World ha obtenido en exclusiva 
los derechos del procesador de textos 
WORDSTAR, en castellano, para los 
Bas AMSTRAD 6128 y PCW 


El WORDSTARD se venderá en 
formato de tres pulgadas y supondrá 
una opción más para los usuarios 
Amstrad. 


ANEDI 


¿UN 
TND” una 


PRESENTACION 


e Algo más sobre PRINT 
e Utilización de la (,) y (;) 
e Presentación de los resultados 
e Cadena de caracteres y variables de cadena 


PRESENTACION. 
e ALGO MAS SOBRE PRINT. 
La instrucción PRINT tiene diversas 
funciones, una de ellas es presentar los 
resultados, como ya hemos visto antes. 
Ejemplo: 

30 PRINT C 


y el ordenador presenta en pantalla el 
valor de C. 


También PRINT efectúa cálculos, ejemplo:. 


50 PRINT 3xA+7 


Aquí PRINT tiene una doble función: a) 


calcula 3xA+7 y b) presenta el resultado. 
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e UTILIZACION DE LA () Y (. 


- Si queremos presentar el resultado de 


varios cálculos y tenemos más de una - 
variable ponemos así: 


60 PRINT C,AH 


El resultado se presenta en distintas 
zonas de la pantalla. La cantidad y 
distribución de zonas en la pantalla 
depende del ordenador y varía según 
marcas y modelos; pero para que esto 
quede claro, si Ces 5,Aes9yHes 3 
obtendríamos esto: 


El (;) tiene un efecto similar a la (,), pero 
la impresión es más próxima entre los 
resultados. 


1 zona 2 zona 


3 zona 4 zona 


e PRESENTACION DE LOS 
RESULTADOS. 


También PRINT puede actuar como 


separador de líneas impresas, por ejemplo: 


10 REM MULTIPLICACIÓN Y SUMA 
20 LET A=5 

30 LET B=8 

40 PRINT Ax8 

50 PRINT 

60 PRINT 5=A+B 


La instrucción PRINT en 50 provoca una 
línea en blanco y los resultados 
presentados por las instrucciones 40 y 60 
quedan espaciados una línea. 


Utilizando convenientemente las 
instrucciones PRINT para dejar espacios 
en blanco y usando la (,) podemos 
presentar en pantalla los resultados de 
una manera más clara y elegante. 


Cualquier comentario o título que aparezca 
en patalla lo hacemos con la instrucción 
PRINT. Ejemplo: 


10 PRINT «nombre del programa» 


de esta forma podemos adornar las 
presentaciones numéricas con frases que 
ilustren el significado de un puñado de 
números dispersos en la pantalla. 


e CADENA DE CARACTERES Y 
VARIABLES DE CADENA. 


Cualquier conjunto de palabras puede 
ponerse en pantalla mediante la 
instrucción PRINT. También en la 
instrucción INPUT podemos poner frases 
que aparecen en la pantalla. Ejemplo: 


10 PRINT «área del círculo» 
20 INPUT «radio»;R 


Pero también ese conjunto de caracteres 
entre comillas (las comillas no aparecen 
en pantalla) puede asignarse a unas 
variables que los representen. Este tipo de 
variables se denominan variables de 
cadena (STRING). Estas variables adoptan 
las mismas reglas que las variables 
numéricas, pero terminadas siempre con el 
signo $. Ejemplo: 


A$ 
A2$ 
BC$ 


Para asignar un conjunto de caracteres a 
una variable de cadena 
éstos deben estar entre comillas. Ejemplo: 


30 LET B$=«madrid» 
50 LET T$= «2607011» 


E 
3 
z 
a 
a 
Ñ 
a 
3 
Ir 


a | [TT] 
- UNEN 
HUME EA 


al | 


E 


de EOS 
1 IE 2 A E EE E ES 
DELEUME ES 
dió a 


Si ponemos un conjunto de números y los LET BSS= x= s 

asignamos a una variable de cadena, ese 

número no tiene ningún significado en entre las comillas es donde dejamos los 
cuanto al valor, y no debe confundirse con espacios en blanco. 


la cifra de una constante numérica. 


La cadena «239» no es la constante 
numérica 239, sino un conjunto de 
símbolos numéricos. 


Una operación que admite cadenas de 
caracteres es la suma, pero entendida 
como una unión de dos o más conjuntos 
de cadenas. Ejemplo: 


10 REM SUMA DE CADENAS 
20 LET A$=«12» 

30 LET B$= «34» 

40 LET C$=«56» 

50 LET RS$=A$+B$+C$ 

60 PRINT R$ 


En la pantalla aparecerá si hacemos 
funcionar el programa el siguiente 
resultado: 


123456 
O sea que R$=«123456» que es lo mismo 


que la unión de la tres cadenas de 
caracteres; formando una sola de seis 


EJEMPLOS: 


Area de un círculo. 


PRINT «área de un círculo». 
PRINT 

PRINT 

INPUT «radio»;R 

LET A=R12x7 

PRINT 

PRINT 

PRINT «área=» A 


Dirección en una carta. 


INPUT «nombre»:N$ 
PRINT 

INPUT «domicilio»;D$ 
PRINT 

INPUT «localidad»;L$ 
PRINT 

PRINT N$ 

PRINT 

PRINT D$ 


100 PRINT 
teres. 
caracteres 110 PRINT 


Este resultado es muy diferente de sumar 120 PRINT L$ 
los números 12, 34 y 56 que daría por 
resultado 102. 


Un conjunto de caracteres en blanco 
también puede asignarse a una variable. 
Ejemplo: 
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0048 ecstesenesr,. e 


Cuaderno de apuntes 


AMSTRADMANIA, revista de microinformática, cuyo fin es divulgar y ayudar al lector, tiene el gusto de presentar 


su «cuaderno de programas». 


Su finalidad es la de posibilitar la conservación y el desarrollo de programas. 

El gran problema que se plantea a cualquier aficionado a la informática es dónde escribir sus programas. 
¿AMSTRADMANIA. ha decidido resolver este problema ofreciéndoles en cada número una hoja tipo donde poder 
archivar y anotar sus posibles programas. 


h 1. Aquí tiene que poner el título 
de su programa. 

2. Descripción del programa, 
pasos, evolución, 
funcionamiento del programa, 
etc. 

3. Número de línea del 
programa. 

4. Pasos, sentencias, órdenes o 
variables correspondientes a 
cada línea. 

5. Zona destinada al 
organigrama para facilitar el 

. entendimiento y evolución del 
programa. 


Recomendamos que los 
programas sean escritos con 
lápiz mientras se estén 
inventando, puesto que al hacer 
un programa es ¡inevitable el 
tener que borrar una línea o 
cambiarla. ) 


Este cuaderno se divide en las siguientes partes: 


TITULO 


DESCRIPCION 


Con este programa podrá obtener 
cómodamente, todas las soluciones 
a las cuestiones que se plantee y 
podrá visualizarlo, para mayor 
comprensión, en la representación 
gráfica que acompañará a cada 
pregunta. 


El programa comienza preguntándole 
los datos necesarios para plantear el 
problema, y cuando los tenga 
(generalmente vale con dos datos), 
pasará a resolver el problema sin 
plantearle más preguntas. 
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PARABOLICO 


Una vez propuesto el problema, 
usted podrá pedirle al ordenador 
cualquier dato (tiempo; ángulo, 
alcance, altura, velocidad y 
componentes v, y vy) en el punto 
(x, y), momento (t), velocidad (v,, 
vy) o ángulo (a) en el que desee. 


Por ejemplo, si quiere saber qué 
ángulo tendrá un proyectil con la 
horizontal, cuando su velocidad sea 
de X m/seg., deberá pulsar la 
opción «a» (ángulo) e introducir el 
dato numérico (Xx), seguido de 


<ENTER> cuando se le pregunte 
velocidad. 


Para pasar a la siguiente opción, 
dentro de cada cuestión pulsar 

- <ENTER> y se pasará al siguiente 
apartado DENTRO DE ESA MISMA 
OPCION. 


Para volver al menú principal, no 
hay más que pulsar <ENTER> al 
llegar al último apartado de cada 
opción. 


Vamos a comprenderlo mejor con 
un caso práctico: 


Quiere saber la altura a la que 


estará el proyectil cuando lleve cinco 


segundos, diez segundos, y veinte 
segundos de vuelo. Deberá hacer lo 
siguiente: 


1. Pulsar la opción «y». 


2. Preguntará la distancia 
horizontal: como no interesa, pulse 
<ENTER> y pasará al siguiente 
apartado. 


3. Preguntará «tiempo»: introduzca 
cinco segundos (da la solución y 
vuelve a preguntar «tiempo», diez 
segundos (ídem) y veinte segundos 
(idem). 


4. Una vez obtenidos las tres 
soluciones, pulsar <ENTER> para 
pasar a los siguientes apartados 
sucesivamente. 


5. Al llegar al último apartado y 
pulsar <ENTER>, vuelve al menú 
principal. 


Al volver al menú, la pantalla de 
trabajo (superior izquierda), no se 
borra, por si hace falta tener en 

pantalla las soluciones obtenidas. 


Con cada solución obtenida, 
aparecerá indicado el «momento», 
«ángulo», «espacio», «velocidad», 


«componente», o «altura» en la gráfica 


del movimiento, y esta localización 
desaparecerá al pasar a otro 
apartado o al pasar, en su caso, al 
menú. 


También hay una opción para 
obtener la función f(x), dándole el 
valor «x», apareciendo igualmente 
localizado el punto en la gráfica. 
Esta opción es localizar (L). 


Aparte de estas siete operaciones 
hay otras cuatro, que so las 
llamadas «comandos directos»: 


H > HELP 

O > OTRO 

S —> SOMBREADO 
E —> ESCALA 


El primero no necesita más 
explicación. 


El segundo dispone de tres 
opciones que por orden son: 


— Salvar: Graba el problema en 
cita para su posterior uso. 


— Cargar: Carga un programa 
salvado previamente con este 
programa. 


— Otro: Pregunta si quiere estudiar 
otro problema. Si pulsa ése habrá 
perdido toda la información sobre el 
problema, púlselo con cuidado. 


En las dos primeras opciones, si ha 


pulsado «s», se le pedirá el nombre. 


del fichero a salvar o cargar, y si 
pulsa <ENTER> se grabará 
«unnamed file» o cargará el primer 
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programa que encuentre, 
respectivamente. 


El tercero es sombreado (S) y es 
para ponerlo o quitarlo según la 
«Claridad» de imagen que necesite. 


El cuarto es escala (E) y le da la 
escala de la gráfica (Un PIXEL: X 
metros). 


En estos dos últimos casos no se 
necesita introducir ningún dato ni 
pulsar ninguna tecla, aparte de la 
tarla de la propia opción. Al ser de 


49 ON ERROR GOTO 454: 


30 PRutuEMAS DE TIRO PARABOLICO 
40: 

50 REM CEEEECCECE 
60: 

70 MODE 1 

80 BORDER 3:FAFER O:FEN 1 
90 SYMBOL 251,4X11100,X11100,%X11100 ¿EXO,tXO, LXO,UXO,LXO 
100 SYMBOL. 250, 2£x110, EX1001, 2X10, £X100,4xX1111,2%X0, 1x0, exo 


FOR ALBERTO L. VALERO 


110 f1=1:DIM 9r (475) ¿PRINT CHRE (23) 4CHRE (0) ¿GR=0 :SPEED WRITE 1 


CCEECECECE 


una función tan reducida, no han 
sido incluidos estos dos últimos 
comandos en el menú principal. 


En la ventana inferior derecha 
aparecen constantemente los datos 
principales del programa (f(x), altura 
máxima, alcance máximo, tiempo de 
vuelo, ángulo, velocidad inicial). 


Ya puede solucionar todos sus 
problemas de tiro parabólico (sin 
razonamiento), y recuerde que la 
mejor forma de entender un 
programa es manejándolo. 


120 KEY 12,"MODE 2:BORDER 1: INF 1,24: INF O,1:FAPER O:FEN 1:LIST"+CHR+(13) 


130 : 


INTERROGATORIO 


180 INFUT"Gravedad (9.8 por defecto:;":;9- 

190 IF 9=0 THEN g=9.8 

200 FRINT"GRAVEDAD=";9 

210 PRINT:INPUT"No.decimales ¿2 por defecto" ¡dec 
220 IF dec=0 THEN dec=2 

230 IF dec>8 THEN 210 

240 FRINT DEC; "DECIMALES" 


250 PRINT:PRINT"Si mo sabe algun dato pulse <¿ENTER>. El programa SOLO le pedira 


los datos que necesite" :FRINT 
260: 


270 PRINT "Introduzca el siguiente dato en m/s < o en km/h si lo introduce en va 


lor negativo >:"¿PRINT:INFUT "Velocidad inicial o fi 
nal"¿vO 

280 IF vó=0 THEN 310 

290 IF voz0 THEN vO=v0kx1000/-3600 

300 DAT(1)=1 

310 FRINT:INFUT "Angulo en grados" ¡an 

320 IF an=0 THEN 420 

330 WHILE an:90 

340 an=an-90 

350 WEND 

360 DAT (2)=1 

370 IF dat(1)=0 THEN 420 

380 tv=(2kx(vOXSIN(an)))/9 

390 xm=((vO0”2)*SIN(2kan))/9 

400 ym=gkxtv"2/8 

410 GOTO 1200 

420 FRINT:INFUT "Tiempo de vuelo en s"¡tv 
430 IF tv=0 THEN 560 

440 dat (3)=1 

450 IF dat(1)=0 THEN 510 


460 sen=(tvkg)/(vO0kx2) :IF sení0 OR sen+1 THEN PRINT:PRINT:PRINT"Hay un error en 1 


os datos introducidos":GOTO 1000 

470 GOSUB 1100 :an=arsen:'arcsen 

480 xm=((vO”2)*SIN(2kan))/9 

490 ym=gktv"2/8 

500 GOTO 1200 

510 IF dat(2)=0 THEN 560 

520 vO=(tvXkg)/(2xSIN(an)) 

530 xm=((vO0*2)XSIN(2kan))/9 

540 ym=g*tv*2/8 

550 GOTO 1200 

560 FRINT:INPUT "Alcance maximo en m";xm 
5/0 1F dat (1)=0 ANL dat(2)=0 AND xm=0 THEN 1000 
580 IF xm=0 THEN 780 

590 IF dat(1)=0 AND an=90 THEN 780 

600 dat (4)=1 

610 IF dat(1)=0 THEN 680 


620 sen=(xm*g/(vO0"2)):1F seníi0 OR sens1 THEN FRINT:FRINT:FRINT"Hay un error en 1 


os datos introducidos" :GOTO 1030 
630 IF sen=1 THEN an=90:GOTO 650 
640 GOSUB 1100:an=arsen/2:'arcsen 
650 tv=2*v0XSIN (an) /g 

660 ym=gktv"2/8 

670 GOTO 1200 

680 IF dat(2)=0 THEN 730 

690 vO=SOR ( (xmkg) /(SIN(2kan))) 
700 tv=(2k*vO*SIN(an))/g 


ym=gkxtv"2/8 
GOTO 1200 
IF dat(3)=0 THEN 780 
740 an=ATN((gk(tv"2))/(2kxm)) 
750 vO=(tvxkg)/(2xSIN(an)) 
760 ym=gk*tv"2/8 
770 GOTO 1200 
780 FRINT:INFUT "Altura maxima en m":;ym 
790 IF ym=0 THEN 1000 
800 dat (5)=1 
810 IF dat(1)=0 THEN 870 
820 sen=(SOR(ymx2*x9))/vO:1F sení0 OR sens1 THEN FRINT:PRINT:FRINT"Hay un error e 
n los datos introducidos":GOTO 1030 
830 GOSUR 1100:an=arsen:'arcsen 
840 tv=2*xvO0x*SIN (an) /g 
850 xm=(vO0”2)X*SIN(2kan)/g 
860 GOTO 1200 
870 IF dat(2)=0 THEN 920 
880 vO=S0R ( (2kgXym) / (SIN(an)*2)) 
890 tv=(2xvOx*SIN(an))/g 
900 xm=((vO0”"2)*SIN(2kan))/9 
910 GOTO 1200 
920 IF dat(3)=0 THEN 940 
930 GOTO 1000 
940 IF dat(4)=0 THEN 1000 
950 an=ATN((4kXym) /xm) 
960 vO=SOR ( (xmXkg) /SIN(2kan) ) 
970 tv=(2xvOXSIN(an))/g9 
980 GOTO 1200 
PRO A 
1000 REM CECLLOGAL PROBLEMA SIN SOLUCION 33333333) 
1010 : 
1020 PRINT"NO SE FUEDE RESOLVER:FALTAN DATOS" 
1030 IF dat(3)=1 THEN PRINT"Altura maxima (Ym)="¿9Xxtv"2/8 
1040 PRINT CHR$(7) 
1050 PRINT"PUL: UNA TECLA" 
1060 "" THEN 1060 ELSE RUN 
1070 
1080 Leen A R C 0 - SE N O £885££88L% 
1090 : 
1100 FOR r=0 TO 90 
1110 IF SIN(r)>sen THEN 1150 
1120 IF SIN(r)=sen THEN arsen=r ¿RETURN 
1130 NEXT 
1140 PRINT"Fallan los senos” :STOP:END:RETURN 
1150 difb=SIN(r)-SIN(r-1) 
1160 difn=sen-SIN(r-1) 
1170 arsen=r-1+(difn/difb) 
1180 RETURN 
1190 e 
1200 444444444 RUTINA FRINCIFAL +++++++++ 
1210 
1220 som=1 :vx=C0S (an) Xv0 :vxy=SIN (an) XkxvO 
1230 DEF FNg(t)=vOXSIN(an)kt-9Xk(t"2)/2 
1240 BORIIER 9:GOSUR 1340 
1250 PRINTH2," T ...TIEMPO":PRINTRH2:FRINTR2," A ...ANGULO" :PRINTRHZ:PRINTHZ," X . 
« «DIST. HORIZ."¿PRINTHZ: PRINT$2," Y ...ALTURA" ¿PRINTS 
2:FRINTHZ," Y . + VELOCIDAD" :PRINTRZ:PRINTHZ," C ..+.COMPONENTES V.":PRINTAZ2:PRINT 
42,CHRS (11) 3" L ...LOCALIZAR" 
1260 PRINTH2:PRINTH2," H ...HELP":PRINTHZ:PRINTHZ," O ...OTRO PROBLEMA" 
1270 PLOT 479,0:DRAWR 0,271,1 
1280 co$="TAXYVOLHOSE" 
1290 NL=0 ¿WHILE n1=0:a$=INKEY$:IF a$>"" THEN n1=INSTR(co$,UPPER$ (a$)) 
1300. WEND 
1310 IF n1<10 THEN LOCATE $2,1,f1:PRINTHZ," ":fl=n1%x2-1:LOCATE 4$2,1,f1:PRINTHZ,C 
HR$ (24) ¿CHR$ (246) ¿CHR$ (24) 
1320 ON NL GOSUB 1540,2950,1860,3240,3500,3760,2180,4020,2670,4190,4260 
1330 GOTO 1290 
1340 MODE 2 
1350 PEN O:PEN $2,1:PEN $3,1:PEN 44,0 
1360 WINDOW +0,1,60,1,8 
1370 WINDOW 42,61,80,1,18 
1380 WINDOW $3,1,60,9,25 
1390 WINDOW $4,61,80,19,25 
1400 PAPER 1:PAPER +2,0:PAPER $3,0:PAPER $4,1 
1410 CLS :CLS$2:CLS$3 :CLS$4 
1420 IF an=90 THEN PRINTR*4,"f(0)=Y":GOTO 1450 
1430 AS=MIDS (STR$ (ROUND (TAN (an) 13)),2) 
1440 PRINTH4 ,"fx=" ¿ROUND (-9/(2k (v0"2)X(COS(an)"2)), 3) ¿CHR$ (8) ¿"x"CHR$ (250) "+"; 
AS ¡CHR$ (8) ¿"x" ¿CHR$ (8) 
1450 PRINTH4,"g ="¿ROUND(g9,dec);"m/s" ¡CHR$ (250) 
1460 PRINTR4,"Vo="¿ROUND(vO,dec) "m/s" 
1470 PRINTR4,"0 =" ROUND (an )dec) ¿CHR$(8) 3" 0" 
1480 PRINTH4,"tv="¿ROUND(tv,dec);"s" 
1490 PRINTH$4,"xm=";ROUND(xm,dec) ;"m" 
1500 PRINT44,"ym=" ¿ROUND (ym,dec);"m" 
1510 GOSUB 4320 
1520 RETURN 
1530 : Ñ 
1540 REM LALALA TIEMPO 222422 
1550 : 
1560 CLS:PRINT SFC(22);"T 1 E MF 0O":PRINT 
1570 IF an=90 THEN 1620 
1580 INPUT "DIST.HORIZONTAL"¿diht+$:1IF diht*$="" THEN GOSUB 2630:GOTO 1620 ELSE di 
ht=VAL (diht+$) 
1590 IF diht>ROUND (xm,dec) OR diht<0 THEN GOSUB 2620:GOTO 1580 
1600 Tie=diht/Vx: Ix=d1ht :GOSUB 2300 
1610 PRINT"Recorre";diht;"m. en“¡tie;z"s.":GOTO 1580 
1620 INPUT "ALTURA";zaltt$:1F altt+="" THEN GOSUB 2630:GOTO 1680 ELSE altt=VAL (al 
tt£) 
1630 IF altt>ym OR alttí0 THEN GOSUB 2620:GOTO 1620 
1640 factor=S0R((v0”Z2)x(SIN(an))”2-(2Zkgkaltt)) 
1650 tiel=(vOxSIN(an)- o A a 1x=ROUND (xm,d 
ec) :GOSUB 2320 
1660 PRINT"Tiempo 1=";tiel:PRINT"Tiempo 2="¡tiez 
1670 GOTO 1620 
1680 INPUT "VELOCIDAD"¡VELTS$:1F velts$="" THEN GOSUB 2630:GODTO 1740 ELSE velt=VAL 
(velt$) 
1690 IF velt>ROUND(vO,dec) OR velt<ívX THEN GOSUB 2620:GOTO 1680 
1700 factor=SOR (velt*2-vx"2) 
1710 tiel=(vO0XxSIN(an)-factor)/g:tie2=(vOxSIN(an)+factor)/g:yy=- (velt*?2-v072)/(2k 
9) :1x=ROUND (xm,dec) :GOSUE 2320 


. 

1720 PRINT"Tiempo 1=";tiel:PRINT"Tiempo 2=";tiez 

1730 GOTO 1680 

1740 INPUT "COMPONENTE Vy":¿cvyt$:1F cvyt$="" THEN GOSUEB 2630:GOTO 1800 ELSE cvyt 

=VAL (cvyt$) 

1750 IF cvyt<0 OR cvyt >ROUND (vOXSIN (an), dec) THEN GOSUB 2620:GOTO 1740 

1760 tiel=(vOXSIN(an)-cvyt)/g:t1e2=(vorSIN(an)+evyt)/9 

1770 IF an<3>90 THEN yy=(vxy*2-cvyt”2)/(2%9) :1x=ROUND(xm,dec) :GOSUB 2320 

1780 PRINT"Tiempo 1=";tiel:PRINT"Tiempo 2=";tiez 

1790 GOTO 1740 

1800 IF an=90 THEN RETURN 

1810 INFUT "ANGULO CON LA HORIZONTAL "¡ANGTS:1F angt$="" THEN GOSUB 2480:RETURN E 

LSE angt=VAL (angt$) 

1820 IF ANGT<-an OR ANGTsan THEN GOSUB 2470:GOTO 1810 

1830 tie=((TAN(ANGT) kvx)- (vOXSIN(an)))/-g:la=vxX*tie:ya=FNf (la) :GOSUB 2420 

1840 PRINT"Forma" ¡angt :CHR$(8);"( a los"¡tie:z"segundos" 

1850 GOTO 1810 

1860 : 

1870 REM 242% DESFLAZAMIENTO HORIZONTAL 22222 

1880 : 

1890 CLS:¿PRINT"” DESPLAZAMIENTO HORIZONTA L":PRINT 

1900 IF AN=90 THEN PRINT"X=0":RETURN 

1910 INPUT"TIEMPO";tiex$:1F tiex$="" THEN GOSUB 2630:GOTO 1960 ELSE tiex=VAL (tie 

x$) 

1920 IF tiex>ROUND(tv,dec) OR tiex<0 THEN GOSUB 2620:GOTO 1910 

1930 dh=tiexkvx :1x=dh :GOSUB 2300 

1940 PRINT"En";tiex;3"s. recorre";dh;"m." 

1950 GOTO 1910 

1960 INPUT"ALTURA"¡ALTX$:1F altx$="" THEN GOSUB 2630:GOTO 2020 ELSE altx=VAL (alt 

x$) 

1970 IF altx>ROUND(ym,dec) OR altx<0 THEN GOSUB 2620:GOTO 1960 

1980 factor=SOR (vxy”2-(2kgkaltx)) 

1990 dhi=(vxy-factor)Xkvx/9:dh2=(vxy+factor)ivx/g:yy=altx :1x=ROUND(xm,dec) :GOSUB 

2320 

2000 PRINT"x1=";dh1:PRINT"x2="dh2 

2010 GOTO 1960 

2020 INPUT"VELOCIDAD"¿VELX$:1F velx$="" THEN GOSUB 2630:GOTO 2080 ELSE velx=VAL ( 

velx$) 

2030 IF velx<vX OR velx>ROUND(vO,dec) THEN GOSUB 2620:GOTO 2020 

2040 factor=S0R (velx"2-vx"2) 

2050 dhi=(vxy-factor) kvx/9 :dh2=(vxytfactor) Kvx/9 :yy=FNf (dh2) : 1x=ROUND (xm,dec) :GO 

SUB 2320 : 

2060 PRINT"x1="¿3dh1:PRINT"x2=":¿dh2 - 

2070 GOTO 2020 

2080 INPUT"COMPONENTE Vy";¡cvyx$:1F cvyx$="" THEN GOSUB 2630:GOTO 2130 ELSE cvyx= 

VAL (cvyx$) 

2090 IF cvyx<0 OR cvyx>ROUND(vOXSIN(an)) THEN GOSUB 2620:GOTO 2080 

2100 dh=vxXk (vxy-cvyx)/9 :yy=FNf (dh) :1x=ROUND (xm,dec) :GOSUB 2320 

2110 PRINT"x=" ¿dh 

2120 GOTO 2080 

2130 INPUT"ANGULO CON LA HORIZONTAL "¿ANX$:1F ANXS="" THEN GOSUB 2480:RETURN ELSE 
ANX=VAL (ANX$) 

2140 IF ANx<-an OR ANx>an THEN GOSUB 2470:GOTO 2130 

2150 DIH=((TAN(ANX)-TAN(AN))KVX"2)/-G:la=DIH:ya=FNf (la) :¿GOSUB 2420 

2160 PRINT"Forma";anx¿CHR$(8);"( a los"¿DIH;"metros" 

2170 GOTO 2130 

2180 : 

2190 REM VIAL LOCAL 1.2 A RoAZZLZLAZ 

2200 : 

2210 CLSi¿PRINT" OA larARMMPRINT 

2220 IF AN=90 THEN PRINT"PARA X=0 Y=";YM;".PARA X<>0 ,EXCEDE LIMITES" "RETURN 

2230 INPUT "X";lx$:en=1 

2240 IF 1x$="" AND loca=0 THEN en=0:RETURN 

2250 IF 1x$="" AND loca=1 THEN GOSUB 2400:loca=0:en=0:RETURN 

2260 com=ASC(LEFTS$(1x$,1)) 

2270 1F NOT (com=43 OR com=45 OR com=46 OR (com>47 AND com<5BP) AND loca=1 THEN 

GOSUB 2400 :RETURN ELSE IF NOT (com=43 OR com=45 OR c 

om=46 OR (com>47 AND com<58)) AND loca=0 THEN RETURN 4 

2280 1x=VAL (1x5) 

2290 GOSUB 2650 

2300 IF 1x<0 OR 1x>ROUND(xm,dec) THEN GOSUB 2620:RETURN 

2310 yy=FNf (1x) 

2320 IF 1x<0 OR 1x>ROUND(xm,dec) THEN GOSUB 2620 :RETURN 

2330 IF 1x=0 THEN 1x=100 

2340 IF loca=1 THEN GOSUE 2400 

2350 loca=1 :se=0 

2360 pixyy=yu*pixyu 

2370 pixxy=1x*pixxu 

2380 GOSUB 2400 

2390 IF en=1 THEN 2230 ELSE RETURN 

2400 PRINT CHR$(23) ¿CHR$(1) 3 :PLOT pixxy,O0:DRAWR O,pixyy:DRAW O spixuy 1PRINT CHR$ ( 

23) ¡CHR$(0) ; 

2410 RETURN 

2420 IF locang=1 THEN GOSUB 2500 

2430 locang=1 

2440 pixya=yaRpixyu 

2450 pixxa=lakpixxu 

2460 GOTO 2500 

2470 PRINT"EXCEDE LIMITES" 

2480 IF locang=1 THEN GOSUE 2500:locang=0 

2490 RETURN 

2500 PRINT CHR$(23) ¿CHR$(1) «PLOT pixxa,pixya:DRAWR S0,O:PLOT pixxa,pixya:DRAWR 

O,SO0:PRINT CHR$(23) ¿CHR$(0) 3 

2510 RETURN 

2520 IF locdos=1 THEN GOSUB 2580: locdos=0 ¿RETURN 

2530 RETURN 

2540 IF locdos=1 THEN GOSUB 2580 

2550 locdos=1 

2560 pixya=yaXpixyu 

2570 pixxa=lakpixxu 

2580 GOSUB 2500 :PRINT CHR$(23) ¿CHR$(1);:PLOT MOV,pixya:DRAWR S50,0:PLOT MOV,pixya 
¿DRAWR 0,50:PRINT CHR$ (23) ¿CHR$(0) ; RETURN 

2590 : 

2600 REM ((C((C EXCEDE LIMITES 332) 

2610 : 

2620 PRINT"EXCEDE LIMITES" 

2630 IF loca=1 THEN GOSUB 2400:loca=0 

2640 RETURN 

2650 PRINT"f ("31lx3")="¿FN4 (1x) ¿RETURN 

2660 : 

2670 REM FA o Ti ARARAA 

2680 : 

2690 CLS:PRINT SPC(20);"0 T R 0O":FRINT 


2700 FRINT "SALVAR <S>" 

2710 as$=UPFERS(INKENS) :1F as="" THEN 2710 

2720 IF a$<>"S" THEN 2780 

2730 GOSUB 2910 

2740 OPENOUT FILE+ 

2730 FOR R£=0 TO 47S:FRINT 4$9,DR(R%);:NEXT 

2760 PRINTH9,G¡DEC¿VO¡AN¿TV;YM¿XM 

2770 CLOSEOUT 

2780 FRINT"CARGAR :S5>" 

2790 as=UPFERS(INKEYS) :1F as="" THEN 2790 

2800 IF a$<>"S" THEN 2870 

2810 GOSUB 2910 

2820 OPENIN FILES 

2830 FOR R%=0 TO 475: INPUT $9,DR(RZ) ¿NEXT 

2840 INPUT $9,G,DEC,VO,AN,TV,YM,XM 

2850 CLOSEIN 

2860 GOSUB 1420 

2870 PRINT "OTRO (FOR TECLADO) <S>" 

2880 AS$=UPFERS(INKEYS) : IF As="" THEN 2880 

2890 IF A$="S" THEN RUN 

2900 RETURN 

2910 REM NOMBRE FICHERO 

2920 INFUT"NOMBRE DEL FICHERO"¡FILES:files=UPPER$ (FILES) 

2930 RETURN 

2940 : 

2950 REM VATIATAA A ON GU LD 22442 44% 

2960 : 

2970 CLS:FRINT SFC(20);"A N G U L 0":FRINT 

2980 IF an=90 THEN PRINT:PRINT"ANGULO=90";CHR$(8);"( PARA CUALQUIER DATO." :RETUR 
N 

2990 INFUT "DIST. HORIZONTAL";¿DHAS:1F DHA$="" THEN GOSUE 2480:GOTO 3040 ELSE DHA 
=VAL (dha+) 

3000 IF IHA>XM OR dha<0 THEN GOSUE 2470:GOTO 2990 

3010 beta=ATN(TAN (an) - (gkdha) / (vx)"2) :1a=Iha :ya=FNf (la) :¿GOSUB 2420 

3020 PRINT"ANGULO CON LA HORIZONTAL :"¡BETA¿CHR$(8)¿"(" 

3030 GOTO 2990 

3040 INPUT "ALTURA"¡ALAN$:IF alans$="" THEN GOSUE 2520:GOTO 3080 ELSE ALAN=VAL (AL 
AN$) 

3050 IF alan>ym OR alan<0 THEN FRINT"EXCEDE LIMITES":GOSUB 2520:GOTO 3040 

3060 betal=ATN(SOR (vxy*2-(2kgkalan))/vx) :beta2=-betal :ya=alan:la=(TAN(betal)-TAN 
(an))Xkvx"2/-9:GOSUE 2520 :MOV=((TAN(beta2)-TAN(an)) kv 

x 2/-9)XFIXXU:GOSUB 23550 

3070 FPRINT"ANGULO1="¡betal ¿CHR$(8) ¿"(" :PRINT"ANGULO2="¿betaZ¡CHR$(8) 3"(":GOTO 30 
40 

3080 INFUT "TIEMFO";tian$:IF tian$="" THEN GOSUB 2480:GOTO 3130 ELSE tian=VAL (ti 
ant) 

3090 IF tian<0 OR tian>tv THEN GOSUB 2470:GOTO 3080 

3100 beta=ATN(TAN(an)-(gkt1an/vx)):la=vxktian:ya=FNf (la) :GOSUB 2420 

3110 PRINT"ANGULO A LOS"¿TIAN¿"="¡BETA¿CHR$(B)¿"C" 

3120 GOTO 3080 

3130 INFUT "VELOCIDAD";vean$:1F vean$="" THEN GOSUB 2520:GOTO 3170 ELSE vean=VA 
Líveans$) 

3140 IF vean“vX OR vean>v0 THEN PRINT"EXCEDE LIMITES":GOSUB 2520:GOTO 3130 

3150 betal=ATN(SOR ( (vean”2/(vx"2))-1)) :beta2=-betal :la=(TAN(betal)-TAN (an) )kvx"2 
/-9 :ya=FNf (la) :GOSUB 2520 :MOV=((TAN(beta2)-TAN(an))x 

vx"2/-9)XFIXXU:GOSUB 2550 

3160 PRINT"ANGULO1=" ¡betal ¡CHR$ (8) ¿"C(" ¿PRINT"ANGULO2=" ¡betaZ¿CHR$ (8) ¿"(":GOTO 31 
30 

3170 INFUT "COMPONETE Vy":vwyan$:1F vyan$="" THEN GOSUB 2520:RETURN ELSE vyan=VAL 
(vyan+) 

3180 IF vyan<0 OR vyan>voxSIN(an) THEN PRINT"EXCEDE LIMITES" :GOSUB 2520:GOTO 317 
0 

3190 betal=ATN(vyan/vx) :beta2=-betal :la=vxk (vxy-vyan)/g:ya=FNf (la) ¿GOSUB 2520 :MO 
V=((TAN (beta2)-TAN (an))kvx"2/-9)*PIXXU:GOSUB 2550 

3200 FRINT"ANGULO1="¡betalCHR$ (8) ¿"(":PRINT"ANGULO2="¡betaZ¿CHR$(8)¿"(" ¿GOTO 31 
70 

3210 ; ' 

3220 REM IILIALAAAA A E y u R A ARA LLL AAA 

3230 : 

3240 CLS:PRINT SPC(22)"A L T U R A":PRINT 

3250 INPUT "DIST.HORIZONTAL":diha$:IF diha$<>"" THEN diha=VAL (diha$) ELSE GOSUB 

2630:GOTO 3290 

3260 IF diha>ROUNI(xm,dec) OR diha<0 THEN GOSUB 2620:GOTO 3250 

3270 lx=diha:GOSUB 2300 

3280 PRINT"Altura:"¡FNf (diha);"m. a los"¿diha;"m.":GOTO 3250 

3290 INPUT "TIEMPO";TIEAS:IF TIEAS$="" THEN GOSUB 2630:GOTO 3340 ELSE TIEA=VAL (TI 
EA*+) y 

3300 IF TIEA>TV OR TIEA<O THEN GOSUB 2620:G0TO 3290 

3310 ALT=VXY*Tiea-(GkT1iea"2/2) :yy=alt:lx 

3320 PRINT"Altura a los"¡tiea;"s:"¡alt;"m. 

3330 GOTO 3290 

3340 INPUT "VELOCIDAD" ;VELA$:1F VELA$="" THEN GOSUB 2630:GOTO 3380 ELSE VELA=VAL 
(VELAS) 

3350 IF VELA<VX OR VELA>VO THEN GOSUB 2620:GOTO 3340 

3360 ALT=(VO"2-VELA”2) / (2XG) :yy=alt :1x=ROUND(XM,DEC) :¿GOSUB 2320 

3370 FRINT"Y="¡alt;"m.":GOTO 3340 

3380 INFUT "COMPONENTE Vy";cvya$:1F cvyas$="" THEN GOSUB 2630:GOTO 3420 ELSE Cvya 
=VAL (cvya$) 

3390 IF cvya<0 OR cvya>vOKSIN(an) THEN GOSUB 2620:GOTO 3380 

3400 alt=(vxy”2-cvya”2)/(2%9) :yy=alt :1x=ROUND (XM,DEC) :¿GOSUB 2320 

3410 FRINT"Y="¿alt;"m.":GOTO 3380 

3420 IF an=90 THEN RETURN 

3430 INFUT "ANGULO CON LA HORIZONTAL ";ANGAS$:IF ANGAS$="" THEN GOSUB 2480:RETURN E 
LSE ANGA=VAL (ANGA+*) 

3440 IF ANGA“-AN OR ANGA>AN THEN GOSUB 2470:GOTO 3430 

3450 AL.T=( (TAN (ANGA) XVX) *2-VXY"2)/(-2k9) :ya=alt :la=(TAN(anga)-TAN(an))kvx"2/-9:6 
OSUB 2420 , 

3460 PRINT"Forma";anga;CHR$(8);"( a los"zalt;"m. de altura" :GOTO 3430 

3470 : Li 

3480 REM EE E L o Cc 1 D A D 3322 >>> 

3490: 

3500 CLS:PRINT SPC(20)"V E L 0 C 1 DA D":PRINT 

3510 IF an=90 THEN 3560 

3520 INPUT "DIST.HORIZONTAL"¡dihv+$:1F dihv+$="" THEN GOSUB 2630:GOTO 3560 ELSE di 
hv=VAL (dihv*$) 

35330 IF dihv>xm OR dihv<0 THEN GOSUB 2620:G0TO 3520 

3540 vel=S0R (vx"2+ (vxy-(gkdihv/vx)) 2) :lx=dihv:GOSUB 2300 

3550 FRINT"Velocidad a los"¿dihv;"m ¡vel;¡"m/s":GOTO 3520 

3560 INPUT "ALTURA";altvs$:IF altv$="" THEN GOSUB 2630:GOTO 3600 ELSE altv=VAL (al 
tv*) 

3370 IF altví0 OR altv>ym THEN GOSUE 2620:GOTO 3560 

3580 vel=SOR (v0”2-2kg*altv) :yy=altv:1x=ROUND (xm,dec) :¿GOSUB 2320 

3390 FRINT"Velocidad=":¿vel;"m/s":GOTO 3560 


. 
3600 INPUT "TIEMPO" ;TIEVS$:IF tiev*$="" THEN GOSUB 2630:GOTO 3640 ELSE tiev=VAL (ti 
ev$) 
3610 IF tieví0 OR tievstv THEN GOSUB 2620:GOTO 3600 
3620 vel=SOR (v0”2-2k*gXvxyktiev+(g"2ktiev"Z2)):lx=vx*tiev:GOSUB 2300 
3630 FRINT"Velocidad a los";tiev;"s.="¿vel¿"m/s":GOTO 3600 É 
3640 INPUT "COMPONENTE Vy"icvyv$:1IF cvyv$="" THEN GOSUB 2630:GOTO 3680 ELSE cvyv 
=VAL (cvyv+) 
3650 IF cvyví0 OR cvyv:vOXSIN(an) THEN GOSUE 2620 :GOTO 3640 
3660 vel=S0R (vx"2+cvyv"2) :yy=(v0"2-vel”2)/(2kg9) :1x=ROUND (xm,dec) :GOSUB 2320 
3670 PRINT"Fara Vy="3cvyv;3"m/s,V="¿vel;"m/s":GOTO 3640 
3680 IF AN=90 THEN PRINT"El angulo es constante,de 90" :;CHR$(8) ¿CHR$ (251) ¿RETURN 
3690 INPUT "ANGULO CON LA HORIZONTAL" :¡angv+:IF angv+="" THEN GOSUB 2480 :RETURN E 
LSE angv=VAL (angv+) 
3700 IF angv>san OR angví-an THEN GOSUE 2470 :GOTO 3690 
3710 vel=vxX*SOR(COS (angv)”-2) :la=(TAN(angv)-TAN (an) )kvx"2/-g :ya=FNf (la) :GOSUB 24 
20 Ñ 
3720 PRINT"Forma un angulo de"¡angv;CHR$(8) ;"( para V="¿vel;"m/s":GOTO 3690 
3730 : 
3740 REM HIRHHRRC CO [e] M Es o N E N h E S 44RRRR 
3750 : 
3760 CLS:PRINT" COMPONENTES Vx y Vy 
3770 PRINT:PRINT"Vx=cte.= ¿3"m/s" ¿PRINT 
3780 INPUT"DIST. HORIZONTAL IHC3:1F DIHC+="" THEN GOSUE 2630:GOTO 3820 ELSE DI 
HC=VAL (DIHC$) 
3790 IF DIHC<0 OR dihc>xm THEN GOSUE 2620:GOTO 3780 
3800 cvy=ABS (vxy- (gkxdihc/vx)):lx=dihc :GOSUB 2300 
3810 PRINT"A los":;dihc;"m,Vy= yi"m/s":GOTO 3780 
3820 INPUT"ALTURA"¡ALTC+$:IF ALTC$="" THEN GOSUB 2630:GOTO 3860 ELSE ALTC=VAL (ALT 
Cs$) 
3830 IF ALTC<0 OR ALTC>YM THEN GOSUB 2620:GOTO 3820 
3840 cvy=SOR (vxy*2-2kg*altc) :yy=altc :1x=ROUND (xm,dec) :GOSUB 2320 
3850 FRINT"A una altura de"jzaltc;"m.,Vy="¿cvy;"m/s":GOTO 3820 
3860 INPUT"TIEMPO"¿TIECS$:IF tiec$="" THEN GOSUB 2630:GOTO 3900 ELSE tiec=VAL (tie 
c$) 
3870 IF tiecíi0 OR tiec>tv THEN GOSUB 2620:GOTO 3860 
3880 cvy=ABS (vxy-9X*t1iec) :lx=vx*tiec :GOSUB 2300 
3890 PRINT"A los"¡tiec;"s.,Vy="¿cvy;"m/s":GOTO 3860 
3900 INPUT"VELOCIDAD"¿VELC$:IF velc$="" THEN GOSUB 2630:GOTO 3940 ELSE velc=VAL ( 
velc$) 
3910 IF velcívx OR velc>vO THEN GOSUE 2620:GOTO 3900 
3920 cvy=SOR (velc”2-vx"2) :yy=(v0"2-velc”*2)/(2k9) :1x=ROUND(xm,dec) :¿GOSUB 2320 
3930 PRINT"Para V="¡velc;¡"m/s,Vy="cvy:"m/s OTO 3900 
3940 IF an=90 THEN PRINT"Para el angulo de 90"¿CHR$(8) ¿CHR$(251)3",Vy="39;"*tiem 
po" ¿RETURN 
3950 INFUT"ANGULO"¡ANGC$: IF angc$="" THEN GOSUB 2480:RETURN ELSE anmgc=VAL (angc$) 
3960 IF angcí-an OR angcsan THEN GOSUB 2470:GOTO 3950 
3970 cvy=vxX*TAN(angc) :la=(TAN(angc)-TAN (an) ) kvx"2/-g :ya=FNf (la) :GOSUE 2420 
3980 FPRINT"Fara un angulo de" ¡angc;CHR$(8) ;"(,Vy="3cvy¿"m/s":GOTO 3950 
3990 : 
4000 REM RARA MARA AA H E L 17 MAA A 
4010 : 
4020 CLS :WINDOW SWAF (0,3:CLS 
4030 PRINTR3:PRINTH3:PRINTH3," H E L (al 
4040 PRINT:PRINT:PRINT:¿PRINT" Pulse la opcion de la que quiera conocer 
el" ¿PRINT:PRINT" resultado.For ejemplo,si quiere 
saber a que altu-":PRINT:PRINT" ra estara el “proyectil” cuando su velocid 
ad sea":FPRINT:FRINT" de"; 
4050 FPRINT" 10 m/s, debera pulsar la opcion ALTURA (*Y'),y":PRINT:PRINT" una 
vez dentro introducir el dato deseado:en este" :PRINT 
¿PRINT" caso introduciremos 10 cuando nos pregunte “Velo-":PRINT:PRINT" 
cidad'.":PRINTH3:PRINTH3," 7] 
4060 FPRINTR3:PRINTH3:PRINTH3,SFC(17)¡ "PULSE UNA TECLA":GOSUB 4140:PR 
INT:PRINT:PRINT:PRINT:PRINT" Para pasar suc 
esivamente al siguiente apar-":PRINT:PRINT:PRINT" tado pulsar <ENTER> SIN 1 
NTRODUCIR NINGUN NUMERO." :PRINT:PRINT 
4070 PRINT" Al pulsar <ENTER> en el ultimo apartado de" :PRINT:PRINT:¿PRI 
NT" cada opcion se retorna al menu principal.":P 
RINT:PRINT:PRINT:PRINT:GOSUB 4140:PRINT:FRINT:PRINT" Si quiere efectuar 
sus operaciones,haga un" :PRINT:PRINT" 7 
4080 PRINT" *BREAKX y podra utilizar la ventana de trabajo" :PRINT:PRINT" sin 
mas condicion que no modificar ninguna linea" :PRINT 
¿PRINT" del programa.":PRINT:PRINT" Fara volver al programa bastara 
con teclear ":PRINT:PRINT" CONT y el "; 
4090 FRINT"programa seguira ejecutandose sin nin-":¿PRINT:PRINT" gun problema 
-«"¿PRINT:PRINT:GOSUB 4140:PRINT:PRINT:PRINT:PRINT" 
Ademas de las opciones que ya hemos visto,":FRINT:FPRINT" hay cuatro 
COMANDOS DIRECTOS en los que no es ne-" . 
4100 PRINT:PRINT" cesario introducir ningun dato.Estos comandos son:":PRINT: 
PRINT" H -> HELP" :PRINT:PRINT" 
S -> FONER/ELIMINAR SOMBREADO" :FRINT:PRINT" E -> ESCALA" :PRINT 
¿PRINT" O -> SALVAR/CARGAR/O" ; 
4110 PRINT"TRO” :PRINT:PRINT:PRINT:GOSUE 4140 
4120 CLS:WINDIOW SWAP 3,0:CLS:IF SOM=1 THEN SOM=3:GOSUB 4350 :SOM=1 
4130 SOM=(SOM=3)X(-1). DR (SOM=1)x(-3) :GOTO 4190 
4140 A$=INKEY$:IF A$="" THEN 4140 
4150 RETURN A 
4160 : 
4170 REM yLLLERL. S O MBE R E A D 0. 2684828 
4180 : 
4190 IF som=1 THEN som=3:GOTO 4200 ELSE som=1:GOTO 4210 
4200 CLS $3 
4210 PLOT 479,0:DRAWR 0,271,1:GOSUE 4350 
4220 RETURN 
4230 : 
4240 REM LR RE EULLLRY 
4250 : 
4260 ESCALA=XM/PIXXZ 
4270 a$=STR$(INT(escala)):IF LEN(a+$)>6 THEN CLS:FRINT SPC(10);"La impresion de 1 
a escala en la pantalla ":PRINT:PRINT" supera los 
limites reservados a la grafica. :PRINTgPRINT SPC(15);"1p:"jescala;"m" :RETURN 
4280 a$=MID+$(STR$(ROUND(escala,4)),2) . 
4290 PRINT 3,CHR3 (24) ;:LOCATE $3,45,1:PRINTRS,"1p:"¡af;"m":FRINT 43,CHR$(24) ; 
4300 RETURN 
4310 : 
4320 REM POLEA A EN 333333) 
4330 : 
4340 CLS*3 
4350 IF GR THEN FLOT 0,0:FOR R4=1 TO 475 STEF som:DRAW RZ,DR(RX) ¿NEXT :RETURN 
4360 GR=1 . 
4370 IF an=90 THEN FLOT S0,O:DRAWR 0,265:dr (0)=475:RETURN 
4380 DEF FN$ (x)=- (9/(2k(vOXCOS(an))2)X(x"2))+(TAN (an) kx) 
4390 IF xm+=ym THEN dis=xm ELSE dis=ym 
4400 pixxu=475/dis:pixyu=265/dis 
4410 x=0:y=FNf (x) :pixy=(y-ym)*pixyu 


4420 a ad E 10, ¿PLOT O,pi 
=1 jo” 405 E 3 


ix *p 
4470 IF pixy*“= Er THEN ES 4354 5 PR NT" HAY UN EXRARIOARS 
4480 DRAW TAE pixxX)=pixy de ES RESUME NEXT 


SENSACIONAL OFERTA 


La MINTLA 


Cursillos Intensivos de 15 horas 
(Tres horas diarias durante una semana) 


Código Máquina 


Diploma 
Otorgado a: 

por su asistencia al curso de: 
CODIGO MAQUINA 


El Dwector 


Al final del cursillo se impartirá diploma de 
asistencia al mismo. 


Los cursillos se impartirán en ordenadores 


AMSTRAD y MISA 
Comienzo el 8 de septiembre. 

Grupos limitados de 14 personas como máximo. 
Horarios de clases de'4 a 7 y de 7 a 10. 


Precio del CUrSO ......o..ooooocccoccoo oo 
Para subscriptores de la revista ..... 5.950 


Abierto plazo de inscripción. 


Información e inscripción, Tel. (91) 276 13 60 


4 
| 


A 


¡ 
> 


Localidad ........................... 


Teléfono 


a 


Soy suscriptor de la 


revista 


deseo hacerme 
socio del «club», 
para lo cual ruego 


carnet. 


NOMDIB coccion 
Dir eCCiÓN cion. 


| 
AMSTRADMANIA y — | 
l 
l 


me sea enviado el 
i 


de 
L. 


PLOVINCIA cion. 


¿Está dispuesto para no perder 
deshonrodamente ante su «incocente» 
micro? 


¿Será capaz de vencer al CPC en 
un mano a mano? 
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EL TUTE 


No lo piense más y comience la 
partida: las reglas de este programa 
son las convencionales del tute, por 
lo que si desconoce este juego, lo 
mejor que puede hacer es aprender 
con alguien previamente. 


Si conoce el tute, para evitar 
confusiones con tantas variaciones 
como presenta este juego, deberá 
saber que: 


10. 


Sólo puede jugar una persona 
en cada partida. 


Se reparten seis cartas al 
principio (no todas). 


Empiece echando usted. 


La carta de la muestra es la 
que se encuentra bajo el mazo, 
a la izquierda de la pantalla. 


Para elegir la carta mueva el 
cursor, que aparece en los 
pilotos sobre cada carta 
mediante las teclas [<] y [>] 
del cursor. 


Cuando el cursor aparezca 
sobre la carta elegida, pulse 
<COPY> y la carta se pondrá 
en el centro del tapete, a la 
izquierda. 


La carta elegida por el 
ordenador, se pondrá en el 
centro del tapete a la derecha. 


Si se enciende el piloto que 
está a la izquierda de la carta 


-que usted ha echado, habrá 


ganado esa mano; si se 
enciende el piloto que está a 
la derecha, junto a la carta 
echada por el ordeador, habrá 
ganado CPC. 


El que gane la mano, echará 
el primero en la siguiente. 


La carta se toma del mazo 
automáticamente. 


1, 


12. 


13. 


14. 


15. 


16. 


17. 


18. 


El número que aparece sobre 
el mazo, es el número de 
cartas que quedan, incluyendo 
la carta de la muestra. 


Para cambiar la muestra por el 
siete, o por el dos, si la 
muestra es inferior, sitúe el 
cursor sobre el siete (o el dos 
en su caso) y pulse <COPY>, la 
carta cambiará 
automáticamente. 


Para cantar es necesario, 
además de tener el caballo y 
el rey del palo en que se 
cante, ganar una mano. Una 
vez cumplido el requisito, se 
canta automáticamente. 


Los cantes se visualizan por 
los pilotos que estén a la 
derecha en la pantalla. Si 
canta usted se encenderá el 
piloto de la derecha del palo y 
si canta CPC, se encenderá el 
de la izquierda del palo en el 
que cante. 


Estos pilotos permanecerán 
intermitentes toda la partida 
para ser recordados. 


Para hacer tute, además de 
tener los cuatro reyes o los 
cuatro caballos, también habrá 
que ganar una mano. La 
partida habrá terminado. 


Si es CPC el que tiene tute, le 
enseñará los cuatro reyes o los 
cuatro caballos. 


Una vez que se ha cantado, 
tanto usted como CPC, no 
podrá hacer tute. 
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19. 


20. 


21. 


22. 


23. 


24. 


ZO 
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Tanto para cantar como para 
hacer tute, CPC, también 
necesita ganarle una mano. 


Sólo se puede cantar, o hacer 
tute, mientras que queden 
cartas en el mazo. 


Al acabarse el mazo, están 
obligados, los dos jugadores, a 
jugar con «arrastre» (aunque 
usted puede hacer trampas en 
este caso). 


a) El arrastre es echar carta 
del mismo palo que la echada 
anteriormente; o bien una 


cualquiera si no tiene cartas de 


ninguno de los dos palos. 

b) Si la carta echada por 
CPC es de la muestra, deberá 
echar otra de la muestra y de 
valor superior, y si no tiene, 
una de inferior valor también 
de la muestra. En caso de no 
tener ese palo, echar 
cualquiera. 


El que gane la última mano 
obtendrá diez puntos «extras». 


Los puntos se van sumando 
automáticamente en el 
marcador que está en la zona 
superior de la pantalla. 


Los puntos son los siguientes: 


a) Cante de la muestra: 40 
puntos. 

Cante: 20 puntos. 

As: 11 puntos. 

Tres: 10 puntos. 

Rey: 4 puntos. 

Caballo: 3 puntos. 

Sota: 2 puntos. 

Ultima mano: 10 puntos. 


O +0000U79 
rr == == == ==” == ur 


26. Al acabar la partida, aparecen 
las puntaciones finales y el 
nombre del vencedor 
intermitente. 


Para aclarar cualquier duda que 
haya podido quedar, lo mejor es 
empezar a jugar. 


Animo y que gane el mejor (que no 
dejará sea CPC, ¿verdad?) 


10 REM ===============e=s=s=coceocececococccococooocoooocoooocooscsso= == 
20 REM 22:8:8:2,:1.8:2.8,2.8/2 e E ls 2221288: 8.2:8 8 
30 REM $345$554559S ss GIGISISILIESISILSS 
40 REM 28:8:2:2:2:2:2,2,2,2:2:8:8,8:8:8 T U T E 227288781: 8,1:8,:2:8, 8 
50 REM $ESSTIIIIISISITISS GLESELISIISILTLIS 
SO REM AAGIOIOIOIOMIORIOGIO DION P o R MOOIOIOOIOIOIOOIGIOIOIDIO 
70 REM ISPTEFIGSISIFESSES IISIISIESTTSTOSES 
80 REM 3 


90 REM 541585 
100 REM 
110 REM ============== 
120 KEY 140,"mode 2:list "+CHR*(13) 

130 FRINT CURS (23) ¿CHAS (1) 5 

140 SYMBOL 255,%X0,2X111100,£xX1111110,2£X1111110,%X1111110,%xX1111110,2XxX111100,0 
150 SYMBOL 254,0,2%X1111100, 2X1111100, eX111000, LX10000, £X10000, eX1111100, O 


160 SYMEOL 233, 2X11, 2£x110, EX1001100, e pd 2X110000» 2X111000, 2X1000100, 2£x0 
170 SYMBOL 252, 2X1110, eX1110, 2X11i -$«X11100,2%X110000, EX1000000, exo 
180 

DOREMO O ooo D 1 Mo nooo 


210 DIM car (40) 

220 DIM ca(12) 

230 DEF FNel1(x)=INT((CA(x+6)-1)/10)+1:00EF FNel2(x)=ca(x+6) -10XINT(CA (x+6)/10) 
240 : 
250 REM 
260 : 
270 FOR CH=1 TO 4:pas (CH) =CHR$ (256-CH) ¿NEXT 
280 INK 2,24,18 

290 punt=0:FEN 1:MODE 1 

300 MODE 1 

310 CLS: FRINT CHR$(23)+CHR3 (0) 

320 CLS 

330 FEN 1 

340 HO=3 

350 MAZO=1 

360 sus=7 


a ION 1 CO 1 AL 1 ZAR o----- 


400 BORDER 1 

410 INK 3,0,19 

420 INK 2,20,9 

430 FEN 1:FOR 1=9 TO 34 STEF S:LOCATE 1,18:FRINT CHR$ (24) ¿CHR$ (233) ¿CHR$ (24) :NEX 


T 

490 x=0:FOR I=11 TO 17 STEF Z:x=x+1:LOCATE 36,i:PRINT CHR$(24) ¿CHR$(233);" "¿CHR 
$(256-) 3" "¿CHR$(233) ¿CHR£ (24) ¿NEXT 

450 LOCATE 15,14:FPRINT CHR$(24) ¿CHR$ (233) :LOCATE 27,14:PRINT CHR$(233) ¿CHR$(24) 


490 RANDOMIZE TIME 

500 azam=INT(RNIIX40)+1:car(azam)=1 :ca(nc)=azam:f=azam-10XINT (azam/10):IF F=0 THE 
N F=10 

510 GOSUE 6210 

5320 FM=INT((AZAM-1)/10)+1:1F F=0 THEN F=10 

530 IF F>7 OR F=1 THEN 540 ELSE pies=RIGHT*+(STR$(F) ,1) :GOTO 580 

540, IF F=1 THEN FIES="A" 

550 IF F=8 THEN FIES="J" 

560 IF F=9 THEN FIES$="C" 

570 IF F=10 THEN PIES="R" 

580 LOCATE 2,12:FRINT FIES:LOCATE 2,13:PRINT FAS(FM) :'LOCATE 4,15:FRINT PAS(PM) 
¿LOCATE 4,16:PRINT PIES 

590 IF f7 OR £=1 OR $=3 THEN sus=7 ELSE sus=2 


“== DIBUJO DE CAS CARTAS =---- 


630 ORI=-24 

640 REM GOSURK 3850 Ñ 

650 ncar=ncar+1:orl=o0ri+2X20:IF ncar;=13 THEN ORI=-24:GOTO 730 

660 IF NCAR/2=INT(NCAR/2) THEN ORIGIN Zkori,-95 ELSE ORIGIN Zkori,152:0RI=0RI-2X 
20 

670 PLOT 70,100:DIRAW 70,200 :DRAW 130,200 :DRAW 130,100:DRAW 70,100 

680 GOSUB 1440 

690 GOTO 650 


710 REM 223 M A N [o] E ==525 


730 FOR nc=7 TO 12:GOSUB 890:GOSUB 3650:1F ca(ínc)/10=INT(caínc)/10) THEN tuto=tu 
to+1l :tutp=-4 

740 1F (calnc)+1)/10=INT ((ca(ínc)+1)/10) THEN tuco=tuco+l :tucp=-4 

730 NEXT 


FOR nc=1 TO 6 

GOSUB 890 

GOSUB 3810 E 

IF caínc)/10=INT(caínc)/10) THEN tutp=tutp+1 
IF (calnc)+1)/10=INT((ca(nc)+1)/10) THEN tucp=tucp+1 
GOSUB 1130 

FOR TT=1 TO 200:NEXT 

NEXT 

IF CRUP=1 THEN RETURN 

GOTO 1570 

: 

REM ===>. Z 


IF MAZO=40 AND mues=0 THEN GOSUB 4180:GOTO 950 
IF MAZO=40 AND mues=1 THEN RETURN 
RANDOMIZE TIME 
aza=INT(RNDx40)+1 
IF caríaza)=1 THEN 890 
car(aza)=1 
ca(nc)=aza 
IF NC>6 THEN G=aza-10XINT(aza/10) ELSE F=aza-10XINT(aza/10) 
970 REM f=aza-10X INT (aza/10) 
980 IF F=0 THEN F=10 
990 IF G=0 THEN G=10 
1000 MAZO=MAZ0+1 
1010 IF LEN(STR$(41-mazo))=2 THEN LOCATE 4,14:PRINT" ":LOCATE 6,14:PRINT" ":LOCA 
TE 5,14:PRINT RIGHTS (STR$(41-mazo) ,1) :GOTO 1040 
1020 LOCATE 4,19:PRINT MIDS$(STR$(41-mazo) ,2,1) 
1030 LOCATE 6,14 :PRINT RIGHTS(STR$(41-mazo) ,1) 
1040 IF MUES=1 THEN LOCATE 5,14:FPRINT " " 
1050 RETURN 
1060 END 
1070 
1080 
1090 
1100 
1110 : 
1120 REM 
1130 : 
1140 HO=5+HO 
1150 PRINT CHR$(23)+CHR$ (1) :GOSUB 1430 
1160 IF F>7 OR F=1 THEN 1200 
1170 LOCATE HO,20 :PRINT RIGHTS(STR$(F),1) :LOCATE HO+2,24:PRINT RIGHTS (STR$(F), 
1) 
1180 LOCATE HO,21:PRINT Pas(INT((aza-1)/10)+1) ¿LOCATE HO+2,23:PRINT Pas$(INT((aza 
-1)/10)+1) 
1190 RETURN 
1200 IF f=8 THEN LOCATE HO,20:PRINT "J":LOCATE HO+2,24:PRINT "J" 
1210 IF £=9 THEN LOCATE HO,20:PRINT "C":¿LOCATE HO+2,24:PRINT "C" 
1220 IF f=10 THEN LOCATE HO,20:PRINT "R":LOCATE HO+2,24:PRINT "R" 
1230 IF £<>1 THEN 1180 
1240 LOCATE HO,20:PRINT "A": :LOCATE HO+2,24:PRINT "A":GOTO 1180 
1250 RETURN 
1260 : 
1270 REM 
1280 : 
1290 MODE O 
1300 IF pp>po THEN c=15 :a=1 ELSE c=1 :za=15 
1310 PEN c:LOCATE 7,10:PRINT "TU.....";USING"$4%" ¿pp 
1320 PEN a:LOCATE 7,12:PRINT "C.P.C.."3USING"4%4%" ¿po 
1330 PEN 14:LOCATE 10,20:PRINT"PRESS ANY KEY" 
1340 CALL KBBO3 
1350 AS=UPPER$ (INKEY*) 
1360 IF A$<>"" THEN RUN ELSE 1350 
1370 : 
1380 REM Peza RR FT 
1390 : 
1400 REM 
1410 : 
1420 GOTO 320 
1430 ORI=0RI+2*20:ORIGIN 2X0R1,-95 
1440 PLOT 70,100:DRAW 130,200:PLOT 70,200:DRAW 130,100:RETURN 
1450 : 
1460 REM 
1470 : 
1480 RESTORE 1520 
1490 FOR ME=1 TO 75:READ MEL 
1500 SOUND 1,MEL,30,15:NEXT 
1510 FOR tt=1 TO 700:NEXT: RETURN : 
1520 DATA 335,250,225,200,225,225,225,270,270,0,0,335,250,225,200,225,225,225,0, 
335,250,225,225,200,225,225,270,270,270,0,270,270,25 
0,270,300,335,335,0,0 
1530 DATA 64,68,77,85,68,68,77,77,85,85,64,68,77,985,68,68,64,64,0,64,68,77,85,68 
168,77,77,85,85,0,100,95,100,112,127,127 
1540 : 
1550 REM PREGUNTA [>] 
1560 : 
1570 IF INKEY(8)=0 THEN SOUND 2,50,1,15:LOCATE CART+9,18:PRINT" ":LOCATE CART+9, 
18:PRINT CHR$(24) ¿CHR$ (233) ¿CHR$ (24) ¿CART=CART-5 
1580 IF INKEY(1)=0 THEN SOUND 2,50,1,15:LOCATE CART+9,18:PRINT" ":LOCATE CART+9, 
18:PRINT CHR$(24) ¿CHR$ (233) ¿CHR$ (24) ¿CART=CART+5 
1590 IF INKEY(9)=0 THEN EC=(CART+5)/5:GOTO 1660 
1600 IF CART>25 THEN CART=0 
1610 IF CART<O THEN CART=25 
1620 PRINT CHR$(22)+CHR$(1) :LOCATE CART+9,18:PRINT CHR$(233) :PRINT CHR$ (22) +CHR$ 
(0) 
1630 FOR TT=1 TO 100:NEXT 
1640 GOTO 1570 
1650 CRUP=0 
1660 IF mazo=40 THEN GOSUB 3300:1F ot=1 THEN 1570 ELSE 1710 
1670 IF INT((ca(ec)-1)/10)+1=pm AND ca(ec)-10XINT(ca(ec)/10)=sus AND MAZO<40 THE 
N 3320 
1680 : 
1690 REM —-BORRA CARTA EXNCUETBTINDIA=-- 
1700 : 
1710 ORI=-24 
1720 FOR so=100 TO 50 STEP -S:SOUND 1,s0,1,5:NEXT 
1730 ENT 1,239,-25,2:FOR so=100 TO SO STEP -S:SOUND 1,s0,1,15,0,1:NEXT 
1740 FOR x=1 TO ec:ori=ori+2820:NEXT 
1750 ORIGIN 2*kori ,-95 
1760 PLOT 70,100:DRAW 70,200:DRAW 130,200:DRAW 130,100:DRAW 70,100 
1770 LOCATE 3+5XEC,20:PRINT " ":LOCATE 3+5XEC,21:PRINT " ":LOCATE S+5XEC,23:PRIN 
T " "¿LOCATE S+5XEC,24:PRINT " " 


1780 : 

1790 REM PAR dE lrA RAE EDI AEsN ME D 10 == 
1800 : 

1810 ORIGIN 250,0 

1820 FLOT 10,130:DRAW 10,230:DIRAW 70,230:DRAW 70,130:DRAW 10,130 

1830 IF CA(EC)=9 OR CA(EC)=10 THEN ORP=0 

1840 IF CA(EC)=19 OR CA(EC)=20 THEN COP=0 

1850 IF CA(EC)=29 OR CA(EC)=30 THEN ESP=0 

1860 IF CA(EC)=39 OR CA(EC)=40 THEN BAP=0 

1870 f=ca(EC)-10XINT(CA(EC)/10):1F F=0 THEN F=10 

1880 IF f=10 THEN tuto=tuto-1:tutp=tutp-1 

1890 IF f=9 THEN tuco=tuco-1:tucp=tucp-1 

1900 KK=INT((CA(EC)-1)/10)+1 

1910 IF F=0 THEN F=10 2 

1920 IF F>7 OR F=1 THEN 1940 

1930 LOCATE 18,12:FRINT RIGHT+(STR$(F),1) :LOCATE 18,13:PRINT FAS(KK) :LOCATE 20,1 

S:¿FRINT FPAS$(KK) :LOCATE 20,16:PRINT RIGHTS$(STR3(F),1) 

1940 IF F=8 THEN LOCATE 18,12:PRINT "J":LOCATE 18,13:PRINT PAS(KK) :LOCATE 20,15:. 

PRINT PAS (kk) :LOCATE 20,16:PRINT "J" 

1950 1F F=9 THEN LOCATE 18,12:PRINT "C":LOCATE 18,13:FRINT FAS(KK) :LOCATE 20,15: 

FPRINT PA$(KK) :LOCATE 20,16:PRINT "C" 

1960 IF F=10 THEN LOCATE 18,12:FRINT "R":¿LOCATE 18,13:FRINT FAF(KK) :LOCATE 20,15 
¿PRINT PAS(KK) :LOCATE 20,16:PRINT "R" 

1970 IF F=1 THEN LOCATE 18,12:PRINT "A":LOCATE 18,13:FRINT FAS(KK) :LOCATE 20,15: 

PRINT PAS(KK) :LOCATE 20,16:PRINT "A" 

1980 CRUF=1 

1990 IF vi=2 THEN 2340 

2000 : 

2010 REM BD LRNRIALRASC CARTAS DE LIO AR ODE SN A DTD R 

2020 : 

2030 ORI=-24 j 
2040 IF (vi=1 OR vi=0) ANO mazo:40 THEN GOSUB 4290 

2050 IF vi=2 THEN GOSUE 5860 

2060 IF (vi=1 OR vi=0) ANI mazo>=40 THEN GOSUR S030 

2070 IF mazo=40 THEN GOSUB 3310:IF otr=0 THEN GOTO 2090 ELSE GOTO 2030 

2080 IF ca(bocu+6)-10XINT(CA(bocu+6)/10)=sus AND INT((CA(bocu+tó6)-1)/10)+1=pm AND! 
MAZO:40 THEN 3420 

2090 FOR N=1 TO BOCU:sorI=ori+2*20:NEXT 
2100 ORIGIN 2*kori,152 

2110 PLOT 70,100:DRAW 70,200:DRAW 130,200:DRAW 130,100:DRAW 70,100:FLOT 70,100:D 
RAW 130,200:FLOT 70,200:DRAW 130,100 


2120 :; 

2130 REM INEA EM IRE CNA RATA ARE EFG IDA ==> 
2140 REM = HE o R Cc. 

2150 REM E N M E 

2160 : 


2170 ORIGIN 330,0:PLOT 10,130:DRAW 10,230:DIRAW 70,230:DRAW 70,130:DRAW 10,130 
2180 IF CA(BOCU+6)=9 OR CA(BOCU+6)=10 THEN ORO=0 

2190 IF CA(BOCU+6)=19 OR CA(BOCU+6)=20 THEN COO=0 

2200 IF CA(BOCU+6)=29 OR CA(BOCU+6)=30 THEN ESO=0 

2210 IF CA(EBOCU+6)=39 OR CA(BOCU+6)=40 THEN BAD=0 

2220 FOR S=9 TO 39 STEP 10:IF CA(BOCU+6)=S THEN TUCO=0 ELSE IF CA(BOCU+6)=S+1 TH 
EN TUTO=0 

2230 NEXT 

2240 G=ca(bocu+tó6)-10XINT(CA (bocu+ó)/10) :1F G=0 THEN G=10 

2250 KJ=INT((CA(bocu+6)-1)/10)+1 

2260 IF G<=7 AND G<>1 THEN CCR$=RIGHTS(STR$ (9) ,1) ¿GOTO 2310 

2270 IF G=8 THEN CCR$="J3" 

2280 IF G=9 THEN CCR$= 
2290 IF G=10 THEN CCR$ 
2300 IF G=1 THEN CCR$="A" 

2310 LOCATE 23,12:PRINT CCR$:LOCATE 23,13:PRINT PA$(KJ) ¿LOCATE 25,15:PRINT PAS (k 
3) :LOCATE 25,16:PRINT CCR+$ 

2320 IF vi=2 THEN 1550 

2330 : 

2340 ' =—- BORRA CARTAS DEL MEDIO --- 

2350 : 

2360 GOSUB 2860 

2370 IF fin=6 AND vi=1 THEN pp=FP+10: GOTO 1280 

2380 IF fin=6 AND vi=2 THEN po=Po+10: GOTO 1280 . 

2390 NC=EC 

2400 ORIGIN 250,0:PLOT 10,130:DRAW 10,230:DRAW 70,230:DRAW 70,130:DRAW 10,130:LO 
CATE 18,12:FRINT " ":¿LOCATE 18,13:PRINT " ":LOCATE 2 

O,1S:PRINT " "¿LOCATE 20,16:PRINT " ":ORIGIN 330,0:PLOT 10,130:DRAW 10,230: DRAW 
70,230 :DRAW 70,130:DRAW 10,130: 

2410 LOCATE 23,12:FPRINT " ":LOCATE 23,13:PRINT " ":LOCATE 25,15:PRINT " ":LOCATE 


25,16:PRINT " " 
2420 IF MAZOD>=40 THEN 2580 
2430 : 
2440 REM —— COMPROBAR CANTES Y TUTES--- 
2450 : 


2460 IF vi=2 AND oro=2 THEN PEN 2:LOCATE 36,11:PRINT CHR$(233) :PO=P0+20:CANT=1 :0 
RO=0:IF PM=1 THEN PO=P0+20 
2470 IF vi=2 AND coo=2 THEN PEN 2:LOCATE 36,13:PRINT CHR$(233) :PO=F0+20:CANT=1 :C 
DO=0:IF PM=2 THEN PO=P0+20 
2480 IF vi=2 AND eso=2 THEN PEN 2:LOCATE 36,15:PRINT CHR$(233) :PO=P0+20:CANT=1 :E 
SO=0:IF PM=3 THEN PO=P0+20 
2490 IF vi=2 AND bao=2 THEN PEN 2:LOCATE 36,17:PRINT CHR$(233) :PO=F0+20:CANT=1 :B 
AD=0:IF PM=4 THEN PO=F0+20 
2500 IF vi=1 AND orp=2 THEN FEN 2:LOCATE 40,11:FRINT CHR$(233) :Pp=Pp+20:CANT=1:0 


RP=0:1F THEN pP=Pp+20 
2510 1F AND cop=2 THEN PEN 2:LOCATE 40,13:PRINT CHR$(233) :Pp=Pp+20:CANT=1:C 
OP=0:1F THEN Pp=Pp+20 
2520 IF AND esp=2 THEN PEN 2:LOCATE 40,15:PRINT CHR$(233) :Pp=Pp+20:CANT=1 :E 
SP=0:1F THEN Pp=Pp+20 


2530 IF AND bap=2 THEN PEN 2:LOCATE 40,17:PRINT CHR$(233) :Pp=Pp+20:CANT=1 :B 
AP=0:IF PM=4 THEN Pp=Fp+20 

2540 IF vi=2 AND tutO=4 THEN PEN '2:LOCATE 10,14:PRINT"T UTE DE RE YE S":LO 
CATE 10,15:PRINT"P 1 E R D E S":GOSUB 3970:G0S 

UB 1470:GOTO 1330 

2550 IF vi=1 AND tutp=4 THEN FEN 2:LOCATE 10,14:PRINT"T UTE DE RE YE S":LO 
CATE 10,15:PRINT" [e] A N A S":GOSUB 1470:G0 

TO 1330 

2560 IF vi=1 AND tuCp=4 THEN FEN 2:LOCATE 10,14:PRINT"TUTEDE CABALLO 
S":LOCATE 10,15:PRINT" G A N A S":GOSUB 14 

70:GOTO 1330 y 

2570 IF vi=2 AND tuCO=4 THEN FEN 2:LOCATE 10,14:PRINT"T UTEDE CABALLO 
S":LOCATE 10,15:PRINT"P 1 E R D E S":GOSUB 403 

O:GOSUB 1470:GOTO 1330 

2580 PEN 1 

2590 IF CANT=1 THEN FOR SO=100 TO 400 STEP S:SOUNO 2,S0,1,15:NEXT:* GOSUB 3000 
2600 IF mazo>=40 THEN ON vi GOTO 1550,2030 


2610 


IIMTPOR AAA 


CARTA 


F<>1 AND F<í=7 THEN dej$=RIGHTS(STR$ (4) ,1) :GOTO 2710 


ZOIZO REM === 

2630 : 

2640 GOSUB 890 * 

2650 IF 

2660 IF f=8 THEN dej Je 
2670 IF f=1 THEN dej A" 
2680 IF f=9 THEN dej+= 
2690 IF f=10 THEN dej3+= 
2700 GOSUB 3810 

2710 


2720 ORI=-24:FOR N=1 TO EC:orI=ori+2X20:NEXT 

2730 ORIGIN 2*ori,-95:PLOT 70,100:DRAW 70,200:DRAW 130.,,200:DRAW 130,100:DRAW 70, 
100 

2740 LOCATE 3+5XEC,20:FRINT dejs:LOCATE 3+S5XEC,21:PRINT dejp$:LOCATE S+SXEC,24:F 
RINT dej$:LOCATE S+5XEC,23:PRINT dejps+ 

2750 NC=6+BOCU:GOSUE 890 

2760 IF g=10 THEN tuto=tuto+1 

2770 1F g=9 THEN tuco=tuco+1 

2780 : 

2790 REM --—DIBUJA CARTA ROBADA POR C.P.C. --- 
2800 : 

2810 GOSUB 3650 

2820 ORI=-24:FOR N=1 TO BOCU:orI=ori+2*20:NEXT 

2830 ORIGIN 2kori,152:FLOT 70,100:DRAW 70,200:DRAW 130,200:DRAW 130,100:DRAW 70, 
100:PLOT 70,100:DRAW 130,200:FLOT 70,200:DRAW 130,10 

o 

2840 ON vi GOTO 1550,2030 

2850 END " 

2860 : 

2870 REM ==--- GANADOR DE LA BAZA 

2880 : 

2890 IF G>7 OR F>7 OR G=1 OR F=1 OR G=3 OR F=3 THEN GOSUB 3100 ELSE PUN=0 
2900 IF Kkk=PM AND kJ<oPM THEN FP=FP+PUN:vi=1 

2910 a M THEN FO=FO+PUN :vi=2 

2920 >PM AND KK<5FM AND (vi=1 OR vi=0) 

2930 FM AND EK<>9PM AND vi=2 THEN Fo=Fo+FUN:vi=2 

2940 AND F=1 THEN PP=PP+PUN:vi=1 

2950 AND G=1 THEN FO=FO+PUN:vi=2 

2960 AND F=3 AND G<>1 THEN PP=FP+PUN:vi=1 

2970 AND G=3 AND F<>1 THEN Po=Fo+PUN:vi=2 

2980 AND F>G AND G<>1 AND G<>3 THEN PP=PP+PUN:vi=1 

2990 AND G>F AND F<>1 AND F<>3 THEN PO=PO+PUN:vi=2 

3000 LOCATE 18,1:PRINT "TU....":LOCATE 25,1:PRINT USING"RH4K":pp 

3010 LOCATE 18,2:FRINT "C.P.C.":LOCATE 25,2:PRINT USING"*HH";po 

3020 IF CANT=1 THEN CANT=0:RETURN 

3030 CANT=0 

3040 


C" :tucp=tucp+1 
"RYctutp=tutp+1 


dejp+=pas$ (INT ((aza-1)/10)+1) 


PEN 2:FRINT CHR$(22)+CHR$(1) :1F Vl=1 THEN LOCATE 15,14:PRINT CHR+(233) ELSE 


ROBADA 


THEN PP=PP+PUN :vi=1 


LOCATE 27,14 :FRINT CHR* (233) 
3050 FRINT CHR$ (22) +CHR$ (0) 


3060 FOR TT=1 TO 1000:NEXT:PEN 1:LOCATE 1,1:PRINT" 


"¿LOCATE 15,14 :PRIN 


T " "¿LOCATE 27,14:PRINT " " 
3070 
3080 RETURN 
3090 : 
3100 REM 
3110 : 
3120 FU=0 
3130 PUN=0 
3140 IF F=8 THEN FU=2+PU 
3150 IF F=9 THEN PU=3+PU 
3160 IF F=10 THEN FU=4+FU 
3170 IF F=1 THEN PU=11+PU 
3180 IF F=3 THEN FU=10+PU 
3190 IF G=3 THEN PU=10+PU 
3200 IF G=1 THEN PU=11+PU 
3210 IF G=10 THEN PU=4+PU 
3220 IF G=9 THEN PU=3+PU 
3230 IF G=8 THEN PU=2+PU 
3240 FUN=PU 
3250 RETURN 

3260 : 

3270 REM 
3280 REM ------ F.OOR 
3290 : 

3300 
3310 

=0 ¿RETURN 


LOCATE 15, 12: FRINT CHR$ (24) ¿CHR$(233) :¿LOCATE 27,14:PRINT CHR$ (233) ¿CHR$ (24) 


SS DONA ENRACADM BRIAO DES PERAr IM SULESS: TE REAL=> 


u N T o Ss 


EL JUGADOR 


IF ul(ec)=1 THEN ot=1:RETURN ELSE ul (ec)=1 :0t=0 :RETURN 


IF ult(bocu)=1 THEN ca(bocu+ó6)=0:o0tr=1:RETURN ELSE ult (bocu)=1:fin=fin+1:0t 


3320 SOUND 2,500,20,15 


3330 SPEED INK 575: INK 3,9,24 
3340 PEN 3:LOCATE 3+5X*EC, 20: FPRINT pies: LOCATE 3+5XEC,21:PRINT pas$(pm) :LOCATE 5+5 


XEC,23:PRINT pas$(pm) :LOCATE S+5XEC,24:PRINT pie$:FOR 
tt21 TO 100:NEXT 


3350 LOCATE 2,12:PRINT RIGHTS (STR$(sus),1) :LOCATE 2,13:FRINT pas$(pm) 


3360 FOR tt=1 TO 300:NEXT: INK 3,24 
3370 AZA=ca(0) :GOSUB 3810 


3380 PEN 1:LOCATE 3+5XEC,20:PRINT pies:LOCATE 3+5*EC,21:PRINT pa$(pm) :LOCATE 5+5 


*EC,23:PRINT pas*(pm) :LOCATE: S+S5XEC,24 :PRINT pies$:LOC 
ATE 2,12:PRINT RIGHTS (STR+ (sus) ,1) :LOCATE 2,13:PRINT pas$(pm) 


3390 1F sus=7 THEN sus=2:pies$="7" 

3400 ca(0)=calec) :calec)=azam:azam=ca(0) :GOTO 1550 

3410 : 

3420 REM --- INTERCAMBIO DE LA MUESTRA POR C.P.C. --- 
3430 : 

3440 SOUND 2,500,20,15 

3450 ORI=-24 

3460 SPEED INK S,S:INK 3,9,24 


3470 


FOR N=1 TO BOCU: orIzori+2K20: NEXT :ORIGIN 2kori,152: PLOT 70,100:DRAW 130,200 


¿PLOT 70,200:DRAW 130,100 
3480 FOR tt=1 TO 700: NEXT 


3490 FEN 3:LOCATE 3+5*XBOCU,4:PRINT pies:LOCATE 3+Skbocu,S:PRINT pa$(pm) :LOCATE S 


+5kbocu,B:PRINT pas+ (pm) :LOCATE S+Skbocu,9:PRINT pies 
¿FOR tt=1 TO 100:NEXT 
3500 FOR tt=1 TO 700:NEXT 


35310  LOCATE 2,12:FRINT RIGHT+(STR$(sus) ,1) ¿LOCATE 2,13:FPRINT pas+(pm) :'LOCATE 4, 


15:PRINT pa$(pm) :LOCATE 4,16:PRINT RIGHT+(STR$(sus), 


FOR tt=1 TO 400:NEXT 
FOR tt=1 TO 300:NEXT: INK 3,24 


PEN 1:LOCATE 2,12:PRINT RIGHT+(STR*(sus),1) :LOCATE 2,13:PRINT pas(pm) 
LOCATE 3+5*bocu,4:PRINT " 
" "¿LOCATE S+SKbocu,9: PRINT " 


¿NEXT 
3560 FOR tt=1 TO 700:NEXT 
3570 AZA=CA(0) :GOSUB 3650 
3580 PLOT 70,100:DRAW 130,200:FPLOT 70,200:DRAW 130,100 


":LOCATE 3+5kbocu,5: PRINT E 
"FOR tt=1 TO 700 


"“LOCATE S+5*bocu,B:P 


3590 FOR tt=1 TO 700:NEXT 
3600 IF sus=7 THEN sus=2:pies$="7" 
3610 ca(0)=ca(boc:+6) :ca(bocu+tó)=azam:azam=ca(0) :GOTO 2030 
3620 : 
3630 REM 7 RECUENTO DE ACUSES DE C.P.C. --- 
3640 : 
3650 IF aza=9 THEN oro=oro+1 
3660 IF THEN oro=oro+1 
3670 1F THEN coo=coo+1 
3680 IF THEN coo=coo+1 
3690 IF aza=29 THEN eso=eso+1 
3700 IF aza=30 THEN eso=eso+1 
3710 IF aza=39 THEN bao=bao+1 
3720 IF aza=40 THEN bao=bao+1 
3730 IF oro>0 THEN orp=-2 
3740 IF coo>0 THEN cop=-2 
3750 IF eso>0 THEN esp=-2 
3760 IF bao>0 THEN bap=-2 
3770 RETUBN 
3780 
3790 Ren TT RECUENTO DE.ACUSES DEL JUGADOR --- 
3800 
3810 IF aza=9 THEN orp=orp+1 
3820 IF aza=10 THEN orp=orp+1 
3830 IF aza=19 THEN cop=cop+1 
3840 IF aza=20 THEN cop=cop+1 
3850 IF aza=29 THEN esp=esp+1 
3860 IF aza=30 THEN esp=esp+1 
3870 IF aza=39 THEN bap=bap+1 
3880 IF AZA=40 THEN bap=bap+1 
3890 IF orp>0 THEN oro=-2 
3900 IF cop>O0 THEN coo=-2 
3910 IF esp>0 THEN eso=-2 
3920 IF bap>0 THEN bao=-2 
3930 RETURN 
3940 : 
3950 REM —- IMPRIMIR TUTE DE REYES DE C.P.C. --- 
3960 : 
3970 ORI=-24:FOR X=1 TO 6 
3980 INK 3,24,9 
3990 ORI=ORI+2x20 
4000 IF CA(X+6)=10 OR CA(X+6)=20 OR CA(X+6)=30 OR CA(X+6)=40 THEN ORIGIN 2XORI,1 
52:GOSUB 1440:PEN 3:LOCATE 3+5*X,4:PRINT "R":LOCATE 
3+5AX, SPRINT pas (CA(1+6)/10) ¡LOÉATE S+5kX,B:1PRINT pas (CA(X+6)/10) ¿LOCATE S+5KX, 
9:PRINT YY 
4010 NEXT 
4020 RETURN 
4030 : 
4040 REM --- IMPRIMIR TUTE DE CABALLOS DE C.P.C. --- 
4050 : 
4060 ORI=-24:FOR X=1 TO 6 
4070 INK 3,24,9 
4080 ORI=0RI+2x20 
4090 IF CA(X+6)=9 OR CA(X+6)=19 OR CA(X+6)=29 OR CA(X+6)=39 THEN 4110 
4100 GOTO 4130 
4110 ORIGIN 2x0R1,152:GOSUB 1440 
4120 PEN 3:LOCATE 3+5%X,4:PRINT "C"¡LOCATE 3+5XX,S:FRINT pas((CA(X+6)+1)/10) ¿LOC 
ATE S+5kX,8:PRINT pas ((CA(X+6)+1)/10) ¿LOCATE SS, 9 
¿PRINT "0" 
4130 NEXT 
4140 RETURN 
. 4150 * 
4160 EORRAR MAZO DE CARTAS 
4170 
4180 aza=CA(0) :mues=1:mazo=mazo—-1:LOCATE 2,12:PRINT" ":LOCATE 2,13:PRINT" " 
4190 GOSUB 6210:LOCATE 3,14:PRINT pas(pm) 
4200 RETURN 
4210 : 
4220 REM 044 00:00 00:04 :0:00:0:40 09 0649-0400 0.00 04:00:40 :0:40 0:00 0:00 40:00 00:00:04 00:90 04 0000 :0000 0.90 00.00 40 0000:00.00 00 
4230 REM (((C(CPIENSA LA JUGADA 3333) 
4240 REM URLRRARRRARRAA CO. Fo. 0. AAALA RARA LALALA 
4250 REM SO 0 00 MD 0 0 0 00 00 00 00 0 00 0 00 0 00 00 00 00 0 00 00 00 0 0000 00 00 00 0 0 08 0 0000 0 00 0 
4260 : 
4270 REM DESFUES 
4280 : 
4290 bocu=0:FOR r=1 TO ó:elel(r)=FNell (r) :eleZ(r)=FNel2(r) ¡NEXT 
4300 IF kk=pm THEN 5880 
4310 IF £<>3 THEN 4400 
4320 FOR x=1 TO 6 
4330 IF elel(x)=kk AND ele2(x)=1 THEN bocu=x ¿RETURN 
4340 NEXT 
4350 GOSUB 4780:1F bocu<>0 THEN RETURN:+REM subrutina de la < carta de la muestra 
4360 GOSUB 4890:1F bocu<>0 THEN RETURN:REM subrutina de la < carta 
4370 FOR x=1 TO 6 
4380 IF elel(x)<>pm AND elei(x)>0 THEN bocu=x ¿RETURN 
4390 NEXT 
4400 IF £<>1 THEN 4470 
4410 GOSUB 4780:IF bocu<>0 THEN RETURN:REM subrutina de la < carta de la muestra 
4420 GOSUB 4890: 1F bocúx;0 THEN RETURN 
4430 FOR x=1 TO 6 y 
4440 IF ele1(x)<>pm AND elel(x)>0 THEN bocu=x ¿RETURN 
4450 NEXT 
4460 GOTO 6150 
4470 FOR x=1 TO 6 
4480 IF elel(x)=kk AND (eleZ2(x)=3 OR ele2(x)=1) THEN bocu=x ¿RETURN 
4490 NEXT 
4500 FOR x=1 TO 6 
4510 IF elel(x)=kk AND (ele2(x)=0 OR ele2(x)=9) AND ((elel(x)=1 AND oro<0) OR (e 
lel(x)=2 AND coo<0) OR (elel(x)=3 AND eso<0) OR (ele 
1(x)=4 AND bao<0)) THEN bocu=x ¿RETURN 
4520 NEXT 
4530 FOR x=1 TO 6 
4540 IF elel(x)=kk AND ele2(x):<9 ANO ele2(x)>0 AND eleZ2(x)>f THEN bocu=x ¿RETURN 
4550 NEXT 
4560 FOR x=1 TO 6 
4570 IF elel(x)<>pm AND elei(x)>0 AND ele2(x)<8 AND eleZ2(x)<>3 AND eleZ(x)>1 THE 
N bocu=x ¿RETURN 
4580 NEXT 
4590 FOR x=1 TO 6 
4600 IF ele1(x)<>pm AND ele1l(x)>0 AND ele2(x)=8 THEN bocu=x ¿RETURN 
4610 NEXT 
4620 GOSUB 4780:IF bocux>0 THEN RETURN:REM subrutina de la < carta de la muestra 
4630 GOSUB 4890:IF bocu<>0 THEN RETURN 
4640 FOR x=1 TO 6 
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4650 41F elel(x)<>pm elei(x)>0 AND ele2(x)=9 THEN bocu=x ¿RETURN 
4660 NEXT 
4670 FOR x=1 TO 6 
4680 IF elei(x)<>pm ele1l(x):0 AND eleZ2(x)=0 THEN bocu=x ¿RETURN 
4690 NEXT y 
4700 FOR x=1 TO 6 . 
4710 IF eleil(x)<>pm elel(x)>0 AND ele2(x)=3 THEN bocu=x ¿RETURN 
4720 NEXT 
4730 FOR x=1 TO 6 
4740 IF elel(x)<>pm elel(x)>0 THEN bocu=x ¿RETURN 
4750 NEXT 
4760 GOTO 6150 
4770 : 
4780 FOR x=1 TO 6 
4790 IF elel(x)=pm AND ele2(x)<9 ANO ele2(x)>1 AND ele2(x)<>3 THEN bocu=x ¿RETURN 
4800 NEXT 
4810 FOR x=1 TO 6 
4820 IF elel(x)<>pm AND elel(x);0 ANO (ele2(x)=0 OR ele2(x)=9) AND ((elel(x)=1 A 
ND oro<0) OR (elel(x)=2 AND coo<0) OR (elel(x)=3 AND 
esoí0) OR (elel(x)=4 AND bao<í0)) THEN bocu=x ¿RETURN 
4830 NEXT 
4840 FOR x=1 TO 6 
4850 IF elel(x)=pm AND (ele2(x)=1 OR ele2(x)=3) THEN bocu=x :RETURN 
4860 NEXT 
4870 RETURN 
4880 : 
4890 FOR x=1 TO 6 
4900 1F elel(x)<pm AND elel(x)>0 AND ele2(x)<8 AND eleZ2(x);1 AND ele2(x)<>3 THE 
N bocu=x ¿RETURN 
4910 NEXT 
4920 FOR x=1 TO 6 
4930 IF elel(x)<>pm AND elel(x)+0 AND ele2(x)=8 THEN bocu=x RETURN 
4940, NEXT 
4950 FOR x=1 TO 6 
4960 IF elel(x)< pm AND elel(x)50 AND (ele2(x)=0 OR eleZ2(x)=9) AND ((elel(x)=1 A 
ND oro:“0) OR (elel(x)=2 AND coo<0) OR (elel(x)=3 AND 
esoi0) OR (elel(:)=4 ANI bao:0)) THEN bocu=x ¿RETURN 
4970 NEXT 
4980 RETURN 
4990 : 
5000 REM DESPUES 
5010 REM ARRASTRE 
5020 : 
5030 bocu=0:FOR r=1 TO ó:elel (r)=FNeli (r) :ele2(r)=FNel2(r) ¿NEXT 
5040 IF FIN=S THEN BOCU=0:FOR R=1 TO 6:BOCU=BOCU+RX-(ULT(R)=0) ¿NEXT : RETURN 
5050 FOR x=1 TO 6 
5060 IF elel(x)=kk THEN 5090 
5070 NEXT 
5080 GOTO 5500 
5090 IF £<>3 THEN 5230 
5100 FOR x=1 TO 6 
5110 IF elel(x)=kk AND ele2(x)=1 THEN bocu=x ¿RETURN 
5120 NEXT 
5130 FOR x=1 TO 6 
5140 IF elel(x)=kk AND ele2(x)>=0 AND ele2(x):8 THEN bocu=x :RETURN 
5150 NEXT 
5160 FOR x=1 TO 6 
5170 IF elel(x)=kk AND ele2(x)=8 THEN bocu=x ¿RETURN 
5180 NEXT 
5190 FOR x=1 TO 6 
5200 IF elel(x)=kk THEN bocu=x ¿RETURN 
5210 NEXT 
5220 GOTO 6150 
5230 IF f:<>1 THEN 5340 
5240 FOR x=1 TO 6 
5250 IF elel(x)=kk AND ele2(x)<>3 AND eleZ(x)>0 AND ele2(x):<¿8 THEN bocu=x ¿RETURN 
5260 NEXT 
5270 FOR x=1 TO 6 
5280 IF elel(x)=kk AND ele2(x):>3 THEN bocu=x ¿RETURN 
5290 NEXT 
5300 FOR x=1 TO 6 
5310 IF elel(x)=kk THEN bocu=x ¿RETURN 
5320 NEXT 
5330 END 
5340 FOR x=1 TO 6 
5350 IF elel(x)=kk AND ele2(x)=1 THEN bocu=x ¿RETURN 
5360 NEXT 
5370 FOR x=1 TO 6 
5380 IF elel(x)=kk AND ele2(x)=3 THEN bocu=x ¿RETURN 
5390 NEXT 
5400 FOR x=1 TO 6 
5410 IF elel(x)=kk AND ele2(x)=0 THEN bocu=x :RETURN 
5420 NEXT 
5430 FOR x=1 TO 6 
5440 IF elel(x)=kk AND ele2(x)>f THEN bocu=x ¿RETURN 
5450 NEXT . 
5460 FOR x=1 TO 6 
5470 IF elel(x)=kk THEN bocu=x ¿RETURN 
5480 NEXT 
5490 GOTO 6150 
5500 FOR x=1 TO 6 
5510 IF elel(x)=pm THEN 5540 
5520 NEXT 
5530 GOTO 5700 
5540 FOR x=1 TO 6 
3550 IF elel(x)=pm AND ele2(x)>1 AND ele2(x)<>3 AND ele2(x)<8 THEN bocu=x ¿RETURN 
5560 NEXT 
5570 FOR x=1 TO 6 
5580 IF elel(x)=pm ANO ele2(x)>1 AND ele2(x)<>3 THEN bocu=x ¿RETURN 
5590 NEXT e 
5600 FOR x=1 TO 6 
5610 IF elel(x)=pm AND ele2(x)<>1 AND ele2(x)<>3 THEN bocu=x ¿RETURN 
5620 NEXT 
5630 FOR x=1 TO 6 
5640 IF ele1(x)=pm AND ele2(x)<>1 THEN bocu=x ¿RETURN 
5650 NEXT . 
5660 FOR x=1 TO 6 
5670 IF elel(x)=pm THEN bocu=x ¿RETURN 
5680 NEXT 
5690 GOTO 6150 
5700 FOR x=1 TO 6 
5710 IF elel(x)<>0 AND ele2(x)>1 AND ele2(x)<>3 AND ele2(x)<8 THEN bocu=x ¿RETURN 
5720 NEXT 
5730 FOR x=1 TO 6 
5740 IF elel(x)<>0 ANI ele2(x)>1 AND ele2(x)<>3 THEN bocu=x ¿RETURN 
5750 NEXT 
5760 FOR x=1 TO 6 


5770 
5780 
5790 
5800 
5810 
5820 
5830 
5840 
5850 
5860 
5870 
5880 
5890 


IF elei(x)<>0 AND ele2(x)<>1 AND ele2(x)<>3 THEN bocu=x ¿RETURN 
NEXT 

FOR x=1 TO 6 

IF elei(x)<>0 AND ele2(x)<>1 THEN bocu=x ¿RETURN 

NEXT 

GOTO 6150 


REM PERS MAESREO: c. 


bocu=0:FOR r=1 TO ó:elel (r)=FNeli (r) :ele2 (r)=FNel2 (r) ¿NEXT 

IF FIN=S THEN BOCU=0:FOR R=1 TO 4:BOCU=BOCU+R*- (ULT (R)=0) ¿NEXT ¿RETURN 

FOR x=1 TO 6 

IF elei(x)<>pm AND ele1(x)>0 AND ele2(x)<8 AND 'ele2(x)>1 AND eleZ(x)<>3 THE 


N bocu=x ¿RETURN 


5900 
5910 
5920 
5930 
5940 
5950 


NEXT 

FOR x=1 TO 6 

IF elei(x)<>pm AND elel (x)>0 AND 'ele2(x)=8 THEN bocu=x ¿RETURN 

NEXT . 

FOR x=1 TO 6 

IF elel(x)<>pm AND elel(x)>0 AND (ele2(x)=0 OR ele2(x)=9) AND ((elei(x)=1 A 


ND oro<0) OR (elel(x)=2 AND coo<0) OR (elel(x)=3 AND 
eso<0) OR (elel(x)=4 AND bao<¿0)) THEN bocu=x ¿RETURN 


5960 
5970 
5980 
5990 
6000 
:6010 
6020 
6030 
6040 
N 
6050 
6060 
6070 
6080 
6090 
6100 
6110 
6120 
6130 
6140 
6150 
6160 
6170 


6180 : 


6190 
6200 
6210 
6220 


6230 


NEXT a 

FOR x=1 TO 6 

IF elel(x)=pm AND ele2(x)<8 ANO ele2(x)>1 ANDO ele2(x)<>3 THEN bocu=x ¿RETURN 
NEXT 

FOR x=1 TO 6 

IF elei(x)=pm AND ele2(x)=8 THEN bocu=x ¿RETURN 

NEXT 

FOR x=1 TO 6 

IF elel(x)<>pm AND ele1l(x)>0 AND (ele2(x)=0 OR ele2(x)=9) THEN bocu=x ¿RETUR 


NEXT , 

FOR x=1 TO 6 

IF elel(x)<>pm ANO elel(x):0 THEN bocu=x ¿RETURN 
NEXT 

FOR x=1 TO 6 

IF elel(x)=pm ANDO ele2(x)<>1 AND ele2(x)<>3 THEN bocu=x ¿RETURN 
NEXT 

FOR x=1 TO 6 

IF elel(x)=pm AND ele2(x)%>1 THEN bocu=x ¿RETURN 
NEXT 

FOR x=1 TO 6 

IF elel(x)s0 THEN bocu=x ¿RETURN 

NEXT 


REM IBID ECM PARDO 
ORIGIN 0,0 


PRINT CHR+* (23) ¡CHR$(1) 5 
PLOT 100,130,1:DRAW 10,130:DRAW 10,230:DRAW 100,230:DRAW 100,130:DRAW 40,23 


O:DRAW 40,130:DRAW 100,230 


6240 


RETURN 


remitase 
a la página 
de suscripciones 


"JUEGOS, 


EL PENSADO IV 


El objetivo de este programa es 
hacerle pasar un rato entretenido y 
a la vez que repasar su cultura; le 
ayudará a ejercitar la memoria. 


El juego consiste en una serie de 
preguntas tipo test, donde se darán 
tres soluciones, pero una sola 
correcta. 


Dado que las preguntas pueden 
ser interminables, daremos a este 
_ juego tratamiento de sección fija, 
dedicándose cada mes a una 
materia diferente. 


El juego está pensado para que 
puedan participar varios jugadores 
con diferente grado de cultura y 
edad, por lo que las preguntas irán 
elaboradas con diferentes niveles 
de dificultad. 


¡Consigue ser el pensador! 
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REM E 
REM EL PENSADIOR-1V = 


REM por FAZ CERRILLO 
REM 
GOSUkE * definicion de los caracteres ] y ) 
GOSUBE 82: ir a establecer colores 
cÉS 
LOCATE 1,10 
FRINT " EL FENSALIOR" 
PRINT 
PRINT 
FRINT " (el juego de las preguntas " 
FRINT 
FPRINT " y respuestas)" 
S NmarFreguntas=4% 
Dim preguntas+ (NmrFreguntas,4) ¿respuesta (NmrFreguntas) ,HaSalido(NmrFreguntas) 
REM leer preguntas y respuestas 
FOR i=1: TO NmrFreguntas 
READ preguntast(i,1) 
READ preguntas3(i,2)7 
READ preguntast(i,3) 
READ preguntas$(i,4) 
REAN respuesta(i) 
HaSalido(i)=0 
NEXT i 
PRINT:PRINT:PRINT 
INFUT " COMO TE LLAMAS" ¡nombres 
nombre3=UPFER$ (LEFT+ (nombre+,1))+LOWER$(MIDS (nombre+,2,10)) 
n=0 : * inicializar el contador de preguntas que han salido 
acertadas = O 
REM sacar una pregunta al azar 
IF n MOD NmrFreguntas =0 THEN GOSUB 77 
n=n+1 
RANIIOMIZE TIME 
p=INT (RNOXNmrFreguntas)+1 
IF HaSalido(p)=1 THEN 35 
ELSE HaSalido(p)=1 
GOSUB 65: * ir a presentar pregunta 
PRINT:PRINT:PRINT > 
PRINT " CUAL ES LA RESPUESTA," ¿nombres+;">2" 
LOCATE 5,24 
¿PRINT "*XxXxXX FULSA <0> FARA ACABAR xAxXxXxk " 
af=INKEY$:IF as$="" THEN 42 
IF as="0" THEN CLS:GOTO 94 
as=UPPERS (a+) 


IF as22"A" AND ar<>"E" AND az C" THEN LOCATE 1,1:FRINT CHR$(7) ¿CHR3$(7) ¿GOTO 


00JC1m PUN 


r=ASC(a$)-64: ' asc("A")=65; asc("B")=66:asc("C")=67 
REM 
REM presentar respuesta 


LOCATE 1,10 : 
IF ri +respuestaíp) THEN [Nk 0,24 :FRINT" OOOHHH!!!!":PRINT:PRINT" TE.HAS EQ 
UIVOCADO":GOTO 59 
55 acertadas=acertadas + 1 
56 INE 0,26,1 
SFEED INK 10,10 
PRINT" MUY BIEN! '":PRINT:PRINT" HAS ACERTADO" 
FOR espera=1 TO 1500: NEXT espera 
GOSUR 82: ' ir a reestablecer los colores iniciales 
GOTD 32: * otra pregunta 
REM 
REM presentar pregunta 
REM 
CLs Ñ ; 
PRINT:FRINT:PRINT:¿PRINT 
PRINT preguntast(p,1) 
PRINT:FRINT:PRINT:¿PRINT 
PRINT " a.="; preguntast(p,2) 
FRINT 
FRINT ¡3 preguntas (p,3) 
PRINT 
PRINT " c.-"; preguntasi(p,4) 
PRINT:PRINT:PRINT 
RETURN 
REM y 
FOR i=1 TO NorFreguntas 
HaSalido(i)=0 
NEXT i 
RETURN 
REM colores 
MODE 1 
BORIIER O 
FEN O 
FAFER 1 
INE 0,1: INE 1,24 
RETURN 
REM 
REM definicion de los caracteres ] y ) 
SYMBOL AFTER 16 
SYMBOL 93,60,0,216,102,102,102,102,0 
“SYMBOL 125,216,230,246,222,206,198,198,0 


CLS 

LOCATE S,S:PRINT CHR$(24) ¡"has acertado":;CHR$(24); acertadas; CHR$(24) ¡"resp 
uestas de "¡CHR*(24) ¿n 
97 tanto =INT— ( acertadasx100 / n ) 
98 ' IF tanto <25, THEN LOCATE 10,10:FPRINT "TIENES QUE ESTUDIAR MAS, ":inombres$ 
99 IF (tanto += 25) AND (TANTO<%SO) THEN LOCATE 10,10:PRINT "NO ESTA MAL, "¿nomb 
res 
100 IF (TANTO += 50) AND (TANTO < 75) THEN LOCATE 10,10:FRINT "ESTA BIEN, "¿nom 
bre+ . 
101 IF (TANTO := 75) THEN LOCATE 10,10:FRINT "MUY BIEN, "¿nombres 
102 FRINT:FRINT:FRINT 


103 PRINT " QUIERES JUGAR OTRA VEZ (S/N)”?" 
104 asf=INKEYS$: IF a ¿THEN 104 
105 IF a$="S" OR as="s" THEN RUN 
106 FOR espera=1 TO 1000:NEXT espera 
107 
108 
109 
110 
111 
112 DATA " EL dolmen Y EL menmhir SON MONUMENTOS" ,"MEGALITICOS","MESOLITICOS","NE 
OLITICOS",1 ES 
113 DATA " EL MIOS SOL EN EGIFTO ERA","AMON","RA","OSIRIS",2 
114 DATA " LAS volutas SON CARACTERISTICAS DEL ARTE" ,"DORICO","JONICO" ,"CORI 
NTIO",2 
115 DATA " EL ARCO CARACTERISTICO DE LA ARQUI- TECTURA ROMANA Y DE LA/ BIZANT 
INA ES","EL DE HERRADURA","EL DE MEDIO PUNTO","EL AP 
UNTADO",2 
116 DATA " El Portico de la Gloria FERTENECE AL ARTE ","ROMANICO ESPAJOL","EI 
ZANTINO","VISIGOTICO",1 
117 DATA " LA ARQUITECTURA GOTICA CONTABA CON LA FRESENCIA DE","TRIGLIFOS Y ME 
"TOPAS","ARBOTANTES Y BOTARELES" ,"MOCARABES Y TIMFANO 
s",2 
118 DATA " El Monasterio de El Escorial FUE OBRA DE", "BERMINI","SABATINI","HER 
RERA",3 
119 DATA " UNO DE LOS A OOPAEEN RETRATISTAS DEL SIGLO XVI FUE" ,"MADRAZO","HUG 
VET", "PANTOJA DE LA CRUZ", 
120 DATA " LA FACHADA DEL RS Hospicio de  ” Madrid FERTENECE AL ESTILO", 
"PLATERESCO" ,"HERRERIANO","CHURRIGUERESCO" ,3 
121 DATA " el Caballero uN la mano en el pecho ES OBRA DE","BARTOLOME MURILLO", 
"JOSE RIBERA" ,"DOMENICO THEOTOCOPULI",3 
122 DATA " La lechera de Burdeos, DE GOYA, SE CON- SIDERA FRECURSORA KIEL","IMPRE 
SIONISMO" ,"PUNTILLISMO", "CUBISMO" ,1 
123 DATA " EL CUADRO Las Espigadoras FUE FINTADO — FPOR","MILLET","MANET" ,"MONET" 
1 
, 
124 DATA " LOS relojes blandos SON CARACTERISTICOS EN LA OBRA DE ","SAURA","DALI 
" "MIRO",2 
125 DATA " CUAL DE ESTAS FINTURAS FREHISTORICAS ES MAS MODERNA?" , "ALTAMIRA (SA 
NTANDER) " ,"LASCAUX (FRANCIA) ","LAS FINTURAS LEVANTINA 
s",3 
126 DATA " LOS FAMOSOS MONUMENTOS DE KHEOFS, KEFREN Y MICERINOS SQN","TEMF 
is , "PIRAMIDES EGIPCIAS" ,"ESTATUAS EGIFCIA 
s" 
127 DATA " LAS mastabas ERAN","TUMBAS EGIFCIAS","ESTATUAS DEL ARTE EGIFCIO","PIR 
AMIDES EGIFCIAS",1 
128 DATA " La Puerta de los Leones, DESTACADO MO- NUMENTO CRETENSE, SE LEVANTO 
EN EL ES- TADO AQUEO DE","ARGOS","MICENAS","TIRINTO 
",2 ce 
129 DATA " El discobolo, DE MIRON,REPRESENTA UNO DE ESTOS JUEGOS OLIMPICOS DE 
LA ANTIGUA GRECIA. CUAL?" ,"LUCHA LIBRE" ,"LANZAMIENTO 
DE DISCO", "LANZAMIENTO DE JABALINA",2 
130 DATA " "el Partenon de Atenas ES DE ESTILO" ,"DORICO", "JONICO" ,"CORINTIO",1 
131 DATA " El Erecteion de Atenas ES DE ESTILO", "DORICO", "“JONICO" y "CORINTIO",2 
132 DATA " CUAL DE ESTOS TEMAS NO ES PROFIO DE Las ESTATUAS GRIEGAS?", "DIOSES"," 
ATLETAS" , "ANIMALES" ,3 
133 DATA " Doriforo, lancero ES UNA ESTATUA DIE ES- CULPIDA POR" ,"MIRON","POLICLE 
TO","FIDIAS", 
134 [IATA " ds Venus de Milo ES UNA FAMOSA OBRA DE ","FPRAXITELES","NO SE CONOCE S 
U AUTOR" ,"POLICLETO",2 
135 DATA " EL LUGAR DE REUNION EN Bona, FARA LOS GRANIIES ACTOS CIVICOS, ERA"," 
LAS TERMAS","EL FORO" ,"EL COLISEO", 
136 DATA " EN La Columna Trajana $ NOS NARRAN" ,"LAS CAMPAJAS DE ROMA EN LA DACI 
A", "LAS STA DE CESAR AUGUSTO" ,"EL INCENDIO DE 
ROMA CON NERON", 
137 DATA " LAS iia PALEOCRISTIANAS ERAN","IGLESIAS","CEMENTERIOS", "CUEVAS 
2 
138 DATA " LA [CERAMICA CAMPANIFORME ESFAJOLA PRO- CEDE DE","CATALU)A","IBIZA"," 
ALMERIA" ,3 


139 DATA " LOS verracos SON PROFIOS DE LA ESCUL- —  .TURA","IBERA","CELTA","CARTAG 
INESA",2 


140 DATA " Alcantara ES CONOCIDA POR SU","ACUEDUCTO ROMANO" ,"PUENTE' ROMANO", "MOS 
AICO ROMANO" ,2 


141 DATA " El ARCO DE HERRADURA APUNTANIO ES CARAC- TERISTICO DEL ARTE" ,"VISIGODO 
" , "MUSULMAN" , "BIZANTINO" ,2 
142 DATA " La Puerta de Alcala de Madrid ES DEL SIGLO" ,"XVIII","XVII","XIX",1 
143 DATA " FRANCISCO DE GOYA Y LUCIENTES NACIO EN","ZARAGOZA", "VALLADOLID" ,"MADR 
1D",1 
144 arta " La familia de Carlos IV ES UNA FINTURA DE ","VELAZQUEZ","GOYA","MURI 
LLO", 
145 Bara " CUAL DE ESTOS CUADROS NO ES [IE GOYA?", "“LA VENDIMIA'",""LA FRADERA DE 
SAN ISIDRO”","“LOS BORRACHOS '",3 
146 DATA " Los Desastres de la Guerra FORMAN UN CONJUNTO [IE CUADROS QUE GOYA 
PINTO PARA REFLEJAR LOS DRAMAS DE LA GUERRA DE LA 1 
NDEPENDENCIA ESPAJOLA. SON", "RELIEVES" ,"GRABADOS" , "ACUARELAS" ,2 
147 DATA " EL PINTOR FRANCES Delacroix FUE UN FINTOR", "ROMANTICO", "NEOCLASI 
CO" ,"REALISTA",1 
148 DATA " El Palacio de Westminster SE ENCUENTRA EN","LONIIRES", "EDINBURGO", "OX 
FORO",1 
149 DATA ” La Balsa de la Medusa ES UN CUANRO DE”, “DELACROIX", EEE "COROT 
",2 
150 DATA " El Fifano ES DE " + "MANET", "MONET" ,"MILLET",1 
151 DATA " La Biblioteca Nacional de "madrid SE CONSTRUYO. EN EL SIGLO", "MLS 
“XVITI","XVII",1 
152 DATA " CUAL DE ESTOS MONUMENTOS NO FUE CONS- TRUICIO EN El SIGLO xx", OR 
RE EIFFEL" ,"CAFITOLIO DE WASHINGTON" ,"FALACIO DE WES k 
TMINSTER" ,3 
153 DATA " Sorolla FUE UN FINTOR IMPRESIONISTA", "VALENCIANO", '*MALLORQUIN", "ANDAL 
UZz",i 
154 DATA " La ms de Canals FUE FINTADA BONA ","PABLO RUIZ PICASSO", "SALVADOR 
DALI","JOAN MIRO",1 . : 
155 DATA " EL CUADRO MAS REFRESENTATIVO [HE Joan Miro id "CARNAVAL DE A 
Trad "*TRES MUSICOS'","'CRISTO ME S. JUAN DE LA 4 
CRUZ", . ñ 
156 DATA. " EL MAXIMO REPRESENTANTE DEL cubismo ESPAJOL :ES","PICASSO", "DALI", 
"JUAN GRIS",1 E Í 


Con este programa pretendemos a 
la vez de entretener al aficionado, 

hacer pensar y familiarizarle con el 
mundo del ordenador. : 


Al final del programa planteamos 
una serie de incógnitas. En este 
primer número muy elementales, y 
que serán resueltas en el próximo. 


«MANDE SUS SOLUCIONES A 
NUESTRA EDITORIAL Y SI SON 
CORRECTAS PREMIAREMOS SU 
ESFUERZO CON UNA 
SUSCRIPCION Y LA 
PARTICIPACION EN NUESTROS 
SORTEOS.» 


DIBUJO OCULTO es un interesante 
juego, que entretendrá a mayores y 
ayudará a los más pequeños a 
enriquecer su vocabulario, de una 
forma amena y divertida. 


Detrás, de la pared que aparece en 
la pantalla del ordenador está 
escondido el dibujo que tiene que 
descubrir. Para ello, usted debe ir 
diciendo letras, tratando de formar la 
palabra propuesta a la izquierda de 
la pantalla. Por cada letra acertada 
se mostrará un detalle más del 
dibujo, una vez haya adivinado la 
palabra, el dibujo quedará completo. 
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Pueden jugar cuantas personas 
quieran. Cuidado con el fallo, pues 
perderá oportunidades de completar 
el dibujo, y, por tanto, de sumar 1 
punto más. 


00m SL ASS 


REM 
REM DIBUJO OCULTO 


REM “por Faz Cerrillo 
REM 
MODE 1 . 
NmrFalabras=100 
DIM palabras (NmrFalabras) ,HaSalido+ (NmrFalabras) ,posibles 
(NmrFalabras) ,Lllicha(26) 
REM 
REM 
REM Presentación 
REM 
MODE O 
LOCATE 3,10 
as="DIBUJO" :b+="0CULTO" 
INK 1,26,6 
FOR i=1 TO 6 
PRINT MID$(a$,i,1)3" "; 
FOR espera=1 TO 200:NEXT 
NEXT 
LOCATE 3,14 
FOR i=1 TO 6 
PRINT MIDS$(b$,i,1)5"  "; 
FOR espera=1 TO 200:NEXT 
NEXT 
FOR espera=1 TO 3000: NEXT 
af=" "ibs=" 
LOCATE 5,10 
FOR i=1 TO 6 
PRINT MID$(a$,i,1)3" "3 
FOR espera=1 TO 100:NEXT 
NEXT 
LOCATE 3,14 
FOR i=1 TO 6 
PRINT MID$(b$,i,1)3" 6"; 
FOR espera=1 TO 100:NEXT 
NEXT 
INK 1,26,26 
MODE 1 
REM 
REM instrucciones”? 
REM 
LOCATE 5,10 
PRINT "QUIERES INSTRUCCIONES?[S/NJ" 
a$=UPPERS$ (INKEYS$) 
IF as="" THEN 42 
IF a$="N" THEN 80 
IF as$<>"S" THEN 42 
REM instrucciones 
cLs 
PRINT 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 


Descubre el dibujo que" :FRINT 
hay oculto en la pared que "¿FRINT 
aparecera en la pantalla del" :FRINT 
ordenador. Para ello tienes ":FRINT 
que ir acertando las distintas" :FRINT 
letras que forman la palabra" :FRINT 
que debes adivinar. For cada” :FRINT 
letra que adivines aparecera" :PRINT 
un trazo del dibujo. Cuando" :PRINT 
PRINT" adivines la palabra, el dibujo" :FPRINT 
PRINT" quedara completo." 

LOCATE 7,24 
PRINT CHR$(24);" pulsa tecla para seguir "¡CHR+(24) 
asf=INKEY$:IF a$="" THEN 64 


5 CLS 


PRINT 

PRINT" 
PRINT" 
PRINT" 


Piensa con cuidado las letras" :FPRINT 
que vas diciendo, porque si no" :PRINT 
aciertas iras perdiendo opor-":FPRINT 
PRINT" tunidades de completar el dibujo" :PRINT 
PRINT" y, por tanto, de sumar 1 punto mas" :FPRINT 
PRINT:FRINT" Puedes jugar con cuantas" :PRINT 
PRINT" personas quieras; solo tienes" :FRINT 
PRINT" que indicarselo al ordenador" :FRINT 
PRINT" cuando te lo pregunte." :FRINT 
PRINT" DE ACUERDO?" 
LOCATE 10,24 
PRINT CHR$(24);" pulsa tecla" ¡CHR$(24) 
a$=INKEY$:IF a$="" THEN 79 
REM 
REM leer palabras 
REM dl 
FOR i=1 TO NmrPalabras 

READ palabra$(i) 
READ posibles(i) 
HaSalido+$(i)="NO0" 
NEXT i 
GOSUB 196:'ir a pedir jugadores 
GOSUB 211:'ir a presentar pantalla 
Jugadas=0 
turno=0 
FOR i=1 TO 26 

Ldicha(i)=0 
NEXT i 
REM 
REM sacar palabra al azar 
REM 
RANDIOMIZE TIME 
p=INT (RNDXNmrFalabras)+1 

IF HaSalido+(p)="SI" THEN 97 
Jugadas=jugadas+1 
IF jugadas=NmrFalabras THEN 
FOR i=1 TO NmrFalabras:HaSalido+(i) ="NO": NEXT iá 
CLS+*1 
CLSHZ 
CLSH3 
REM 
REM dibujar pared donde esta escondido el dibujo 
REM 
CLS+4 
PLOT 340,320 
FOR i=320 TO 120 STEF -1 
DRAW 600,1 


ELSE HaSalido+ (p)="SI" 


113  FLOT 340,1 

114 NEXT 

115 FRINT $1, STRING+ (LEN (palabras (p)),"-"); 

116 FRINT $3,CHR3 (4) ¿"LEIRAS ERKONEAS" :CHR3 (24) 

117 turno=turno+1:IF turno+njug THEN GOSUB 141:” 

118 LOCATE 25,22 

119 FRINT STRING+(10," ") 

120 LOCATE 25,22 

121 PRINT CHR$(24) ¿nombres (turno) ¡¿CHR+ (24) 

122 fin+="N0" 

123 intentos=0 

124 aciertos=0 

125 exitos="NO" 

126 WHILE (fin$="NO") AND (intentos: posibles(p)) 

127 GOSUB 166: "pedir letra 

128 intentos=intentos+1 

129 GOSUB 176  :* ver si aciertos 

130 IF exito$="NO" THEN FRINT $3,letrat; ELSE  exitoj="NO" 

131 IF aciertos=LEN (palabras (p)) THEN fin*="SI":puntos (turno)=punt 

os (turno)+1:GOTO 133 

132 GOSUB 183 :” presentar mensajes de ayuda 

133 WEND 

134 CLSH2 

135 IF fin*$="NO" THEN FRINT +2,CHR$(225);" OH, LO SIENTO!": FRINT $2 

¿PRINT $2,"LA FALABRA ERA": PRINT +2, CHR+ (24) ¡pa 

labra$(p) ¡¿CHR$(24) ¿GOTO 138 

136 INK 1,26,6 

137 LOCATER2,3,3:FRINT $2,CHR$(224)¿" 

HAS ACERTADO" 

138 FOR espera=1 TO 2000: NEXT espera 

139 INK 1,26,26 

140 GOTO 92 

141 REM 

142 REM otra vez? 

143 REM 

144 LOCATE 25,22 

145 PRINT STRINGS+(10," ") 

146 LOCATE 25,22 

147 PRINT "OTRA VEZ [S/NJ?" 

148 a$=UPPERS(INKEY+) : IF as$="" THEN 148 

149 LOCATE 25,22 

150 PRINT STRINGS (15, A 

151 IF as="S" THEN túrno=1 ¿RETURN 

152 IF a$<>"N" THEN LOCATE 1,1:PRINT CHR$(7):GOTO 146 

153 CLS 

154 PRINT:PRINT:PRINT 

155 PRINT TAB (10) ¡ "NOMBRE" ¡TAB ATA, 

156 FRINT TAB(10) ¿TAB (30); 

157 PRINT:PRINT:PRINT 

158 FOR i=1 TO njug 

159 PRINT TAB(10) ¿nombres (1) ¡TAB (30) ¡¿USING"*4+" ¡puntos(i) 

160 PRINT:PRINT 

161 NEXT i 

162 FOR espera=1 TO 2000:NEXT espera 

163 CLS 

164 END 

165 REM 

166 REM pedir letra 

167 REM 

168 CLS $2 

169 PRINT $2,CHR$(24) ¿"DI UNA LETRA: "¿CHR$ (24); 

170 letra$=LOWERS (INKEYS) 

171 IF letras+="" THEN 170 

172 IF letras$<"a" OR letra$>"z" THEN 168 

173 PRINT $2,letras 

174 1F LDicha (ASC (letras)- -96)=1 THEN LOCATE $2,3,3:PRINT $2, " 

YA LA Has DICHO!'": FOR espera=1 TO 500 :NEXT :GOTO 1658 

ELSE LDicha(ASC(letras$)-96)=1 

175 RETURN 

176 REM 

177 REM ver si hay algun acierto 

178 REM 

179 FOR i=1 TO LEN(palabras (p)) 

180 IF letra$=MID+ (palabras (p),i,1) 
FPRINT $1,letras: 

aciertos=aciertos+l:; 

GOSUE 267:' presentar dibujo 

181 NEXT i 

182 RETURN 

183 REM 

184 REM presentar mensajes de ayuda 

185 REM 

186 IF intentos=posibles(p)-1 THEN PRINT H2:PRINT $2, "CUIDADO! SOLO 

TIENES 1 INTENTO MAS" :GOSUB 191 ¿RETURN 

187 IF intentos=sposibles(p)-2 THEN PRINT R+2:FPRINT $2,"CUIDADO! 

SoLo TIENES 2 INTENTOS MAS":GOSUB 191 :RETURN 

188 IF (aciertos=LEN (palabra$(p))-1) AND (intentos<LEN (palabras (p))) 

THEN FRINT $2:PRINT $2,"ANIMO! SOLO TE QUEDA 1" 

:GOSUB 191 :RETURN p 

189 IF (aciertos=LEN (palabras (p))-2) AND (intentos:LEN (palabras (p))) 

THEN PRINT 42:PRINT $2,"VAMOS! SOLO TE QUECIAN 2":GOSUB 191: 

RETURN 

190 RETURN 

191 REM 

192 REM esperar a leer el mensaje 

193 REM 

194 FOR espera=1 TO 2000:NEXT espera 

195 RETURN 

196 REM 

197 REM pedir jugadores y 

198 REM 

199 CLS 

200 INFUT "CUANTOS JUGALNORES" ¿njug 

201 IF njug=0 THEN njug=1 

202 DIM puntos (njug) ,nombres (njug) 

203 PRINT:PRINT:PRINT 

204 FOR i=1 TO njug 

205 PRINT "NOMBRE JUGADOR" zi; 

206 INFUT nombres (i) 

207 nombre+* (1) =UPPER$ (LEFT*+ (nombres$ (1) ,10)) 

208 puntos(i)=0 


otra vez? 


MUY BIEN !'!":FRINTHZ," 


THEN LOCATE $1,i,1: 


exito$="SI": 


NEXT i 

RETURN 

REM 

REM presentar pantalla 
REM - 

REM dibujar el marco 
REM 

CLS 

PLOT 10,10 

DRAW 10,390 

DRAW 630,390 

DRAW 630,10 

DRAW 10,10 

REM 

REM crear las ventanas 
REM 
WINDOW*1,4,18,6,7 
WINDOW*2,4,18,10,15 
WINDOW*3,4,18,19,22 
WINDOW*4,23,37,6,17 
REM 

REM 

REM dibujar los marcos de las ventanas 
REM 

PLOT 40,260 

DRAW 300,260 

DRAW 300,150 

DRAW 40,150 

DRAW 40,260 

REM 

REM marco ventana 1 
REM 

PLOT 40,340 

DRAW 300,340 

DRAW 300,280 

DRAW 40,280 

DRAW 40,340 

REM 

REM marco ventana 3 
PLOT 40,120 

DRAW 300,120 

DRAW 300,40 

DRAW 40,40 

DRAW 40,120 

REM ' 

REM marco 4 

REM 

PLOT 340,320 

DRAW 600,320 

DRAW 600,120 

DRAW 340,120 

DRAW 340,320 

REM 

REM poner titulo 
REM 

LOCATE 12,2 


PRINT CHR$(24);" DIBUJO OCULTO "¿CHR$(24) 
RETURN 

REM 

REM dibujo 

REM 


ON LEN (palabra$(p))-4 GOSUB 273,310,346,379,419,457,515 
RETURN 

REM 

REM cinco letras 

REM 

ON aciertos GOSUB 277,285,291,297,303 
RETURN 

REM 1 

CLS44 

DEG 

FOR a=1 TO 360 

PLOT 470,220 A 

DRAW 470+50XCOS (a) ,220+SOX*SIN (a) 
NEXT 

RETURN 

REM 2 

PLOT 360,300 

DRAW 420,250 

PLOT 580,140 

DRAW 520,190 

RETURN 

REM 3 

PLOT 360,140 

DRAW 420,190 

PLOT 580,300 

DRAW 520,250 

RETURN 

REM 4 

PLOT 470,310 

DRAW 470,280 

PLOT 470,130 

DRAW 470,160 

RETURN 

REM 5 

PLOT 360,220 

DRAW 410,220 

PLOT 540,220 

DRAW 580,220 

RETURN 

REM 

REM seis 

REM 

ON aciertos GOSUB 314,322,326,330,334,338 
RETURN 

REM 1 

CLS44 

DEG 

FOR a=1 TO 360 LE 
MOVE 660,220 

PLOT 470+90X*COS (a) ,220+90XSIN (a) 
NEXT a 

RETURN 


REM 2 

LOCATE 27,10 
FRINT CHR+$ (231) 
RETURN 

REM 3 

LOCATE 33,10 
PRINT CHR$(231) 
RETURN 

REM 4 

PLOT 410,260 
DRAW 440,260 
RETURN 

REM 5 

PLOT 500,260 
DRAW 530,260 
RETURN 

REM 6 

PLOT 460,150 
DRAW 490,150 
DRAW 500,152 
PLOT 450,152 
DRAW 460,150 
RETURN 

REM 

REM siete 
REM 


ON aciertos GOSUB 350,355,359,363,367,371,375 


RETURN 

REM 1 

CLS44 

PLOT 470,270 
DRAW 470,200 
RETURN 

REM 2 

PLOT 380,200 
DRAW 560,200 
RETURN 

REM 3 

PLOT 420,160 
DRAW 520,160 
RETURN 

REM 4 

PLOT 380,200 
DRAW 420,160 
RETURN 

REM 5 

PLOT 560,200 
DRAW 520,160 
RETURN 

REM 6 

PLOT 470,270 
DRAW 420,250 
RETURN 

REM 7 

DRAW 470,240 
RETURN 

REM 

REM ocho 

REM 


ON aciertos GOSUB 383,388,392,396,400,404,408,412 


RETURN * 

REM 1 

CLS44 

PLOT 400,200 
DRAW 400,160 
RETURN 

REM 2 

PLOT 560,200 
DRAW 560,160 
RETURN 

REM 3 

PLOT 400,200 
DRAW 560,200 
RETURN 

REM 4 

PLOT 400,160 
DRAW 560,160 
RETURN 

REM 5 

PLOT 460,240 
DRAW 520,240 
RETURN 

REM 6 

PLOT 460,240 
DRAW 460,200 
RETURN 

REM 7 

PLOT 520,240 
DRAW 520,200 
RETURN 

REM 8 

LOCATE 28,16 
PRINT CHR$(231) 
LOCATE 34,16 
PRINT CHR$(231) 
RETURN 

REM 

REM nueve 
REM 


ON aciertos GOSUB 423,428,431,435,439,443,446,450,453 


RETURN 

REM 1 

CLS*4 

PLOT 400,220 
DRAW 400,140 
RETURN 

REM 2 

DRAW 540,140 
RETURN 

REM 3 


2 FLOT 470,220 


DRAW 470,140 
RETURN 
REM 4 


PLOT 540,220 

DRAW 540,140 

RETURN 

REM 5 

FLOT 400,220 

DRAW 435,270 
2 RETURN 

REM 6 

DRAW 470,220 

RETURN 

REM 7 

FLOT "435,270 

DRAW 500,270 

RETURN 

REM 8 

DRAW 540,220 

RETURN 

REM 9 

DRAW 470,220 

RETURN 

REM 

REM diez 

REM 


ON aciertos GOSUB 461,466,470,474,478,482,486,490,494,498 


RETURN 

REM 1 

CLSK4 

PLOT 400,240 
DRAW 400,140 
RETURN 

REM 2 

PLOT 500,240 
DRAW 500,140 
RETURN 

REM 3 

PLOT 540,290 
DRAW 540,190 
RETURN 


REM 4 


PLOT 400,240 
DRAW 440,290 
RETURN 

REM 5 

PLOT 540,290 
DRAW 500,240 
RETURN 

REM 6 

PLOT 440,290 
DRAW 540,290 
RETURN 

REM 7 

PLOT 540,190 
DRAW 500,140 
RETURN 

REM 8 

PLOT 400,140 
DRAW 500,140 
RETURN 

REM 9 

PLOT 400,240 
DRAW 500,240 
RETURN 

REM 10 

LOCATE 27,12 
PRINT CHR$(231) 
LOCATE 31,12 
PRINT CHR$(231) 
LOCATE 27,15 
FPRINT CHR$(231) 
LOCATE 31,15 
PRINT CHR$(231) 
LOCATE 28,9 
PRINT CHR$(231) 
LOCAJE 32,8 
PRINT CHR$(231) 
LOCATE 33,12 


Domicilio... 


PTOVINCIA....ooioicocicninciinnici 


PRINT CHR$(231) 
RETURN 
REM 
REM once 
REM 
ON aciertos GOSUB 519,524,527,530,533,537,540,543,547,551,555 
RETURN 
REM 1 
CLS44 
PLOT 450,160 
DRAW 540,160 
RETURN 
REM 2 
DRAW 540,230 
RETURN 
REM 3 
528 DRAW 450,230 
529 RETURN 
530 REM 4 
531 IRAW 450,160 
532 RETURN 
533 REM 5 
534 FLOT 450,190 
535 DRAW 410,190 
536 RETURN 
537 REM 6 
538 DRAW 410,160 
539 RETURN 
540 REM 7 
541 DRAW 450,160 
542 RETURN 
543 REM 8 
544 LOCATE 27,16 
545 PRINT CHR$ (231) 
546 RETURN 
547 REM 9 
548 LOCATE 28,16 
549 FRINT CHR4 (231) 
550 RETURN 
551 REM 10 
552 LOCATE 31,16 
553 FRINT CHR$(231) 
554 RETURN 
555 REM 11 
556 LOCATE 33,16 
557 PRINT CHR$(231) 
558 RETURN 


559 DATA acrobatas,10,manitas,9,diestro,9,saborear,9,estrecho,9,carruaje,B8,cojin 
es,9,acarrear,8 4 (5) 
560 DATA bodeguero,10,vendimiar,10,esparcir,10,mojadita,11,chaleco,10,cochino,8, 
cable,7,blindado,10 

Só61 DATA cacahuetes,10,almohada,10,desolacion,13,canguro,9,templado,12,colina,8B 
562 LAYA ladera,8,esquiadores,12,pararrayos,10,frigorifico,9,hoc1co,9,bostezo,9, 
alfarero, 

563 DATA aguila,8,botijo,7,claxon,8,culpable,9,bucle,?7,hipopotamo,10,pantano,B,a 
dvertir,10 

564 DATA conmovedor ,12,coliflor,10,violeta,9,perejil,9,empanada,9,mazorca,B8,hund 
ido,10,chimenea,10 

565 DATA crujir,B8,colmena,7,aeroplano,10,polvoriento,12,plumaje,10,zanahoria,10, 
borriquitos,11 

566 DATA obstinado,12,neumatico,12,salamandras,10,espesura,9,abrochar,9,bordado, 
8,chucherias,12 

567 DATA retozar,11,potrillo,9,carbonero,10,cremallera,11 ,criba,B,deleite,8,ato1(P) 
ondrado,12 

568 DATA hormiga,10,multitud,10,dramatizar,12,dardo,7,dromedario,11,lechuza,10,i 
ntrusa,10 

569 DATA rebanada,10,marejada,10,helicoptero,13,cosecha,9,volante,9 

570 DATA ancla,7,anchoas,8,besugo,8,conducta,10,envidia,8,medalla,7,anillo,7,aux 
ilio,10 

571 DATA A A E 
cultura,B 

572 DATA boligrafo,12,reglas,8,mecanico,10,cenicero,10,cosmopolita,12,biblioteca 
,12,programa,10 


Deseo suscribirme a la revista AMSTRADMANIA por un año consecutivo (11 números) al 
precio de 4.312 pesetas, más 400 de envío. El primer número que deseo recibir es el ................ 


El precio de la suscripción lo abonaré: 


Contra reembolso del primer envío O 
Por talón bancario a nombre de EDITORIAL COMETA, S.A. O 


Recibo de EDITORIAL COMETA, $. A., en concepto de inscripción anual hasta nueva orden, 
a la revista AMSTRADMANIA. 


Potosí, 1 - 28016 MADRID - Teléfono 276 13 60 


o el e protegido contra 


PREGUNTA: beta anoma 
¿CÓMO mo da rías el PIO rograma “Una vez realizado esto, S€ uede 
para desde eclado introduc Ú salvar pasándolo a cinta y tiene 
mismo las pa ud! ras CO n las que el juego completo Y totalmente 
quieres ¡jugar * r? són 
S U C o A: ue ee E e o 
El programa oncurso ha sido a Sas aa a 
anado por U solo acertante- Le da a A 
« del Carmen Parrilla, que NOS de e E ias 
manda la SÍ9 te solución: a od E E 
Cargar el program”: e ns A o Es dy 
hecho esto, COn la instrucción : o pares o ano 2 
ERGE curso concatenará E en 
en el ordenad los dos programs pe Po ara De 


0 Y 


[SERES 
/ IN 


AVANCE 

DE 

D LA 

EL PROXIMO castidad 


ENTRE O 
TR 
acmos: PROGRAMAS 


e Siste 
ma gene 
ra : 
e El Nucleón. | de sistema de ecuacio 
nes lineal 
es. 


e 
y = al V 
: e e de caracteres 
Sr aa las palabras : 
r nu | 
estro curso de introducció 
n al Basi 
IC. 


LA IMPRESORA 100% COMPATIBLE 
PARA TU AMSTRAD 


e ANT, CARRETERA DEL PRAT / PJE, DOLORES 


*S TEL, (93) 3363362  TLX. 93533. DSIE-E 


L'HOSPITALET DE LLOBREGAT (BARCELONA) 


Ú 1 ' e INFANTA MERCEDES, 83 
DISTRIBUIDORA DE SISTEMAS ELECTRONICOS, S.A. TELS. (91) 279 11 23 / 279 36 38 
28020 MADRID e 


APLICAMOS NUESTRAS IDEAS EN: 
* SERVICIOS DE MARKETING 


* FORMACION TECNICA Y COMERCIAL 
atodos los niveles de la Empresa 


* SOFTWARE 
- Para microordenadores MSDOS, OASIS y UNIX 
- Soporte y formación total en cada una de las aplicaciones 


Informática al día 


MICROMOUSE, S. A. - Ferraz, 66 - 12 B - Tfno. 247 37 03 - Telex: 45316 LXTE - 28040 MADRID 


